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Chapter 1 
Introduction 



The conception of Einstein's Theory of General Relativity in 1915 was deemed a theorist's 
paradise, but an experimentalist's nightmare. In particular, the effects of gravitational radiation 
were believed to be too weak to ever have measurable effects on an Earth-based experiment, 
and were hence nothing more than an interesting prediction of the theory. 

However, beginning with Weber's [|I| investigations using resonant bar detectors for the 
measurement of gravitational waves, the reality of actually measuring the effects of black holes 
and neutron stars on the surrounding universe became the primary goal of many investigators. 

Today, with the construction of Earth-based gravitational wave detectors like LIGO it 
has become a matter of when, rather than if, gravitational waves will be detected. One of 
the remaining difficulties in detection of gravity waves is the construction of realistic waveform 
templates. Templates will allow investigators to sift through the avalanche of data to correctly 
and accurately identify gravitational wave signals from astrophysical sources. 

Because of the need for waveform templates a great amount of effort has been spent 
on a fully relativistic treatment of the two-body problem. A solution to the two-body problem 
will yield detailed information of a binary's orbital parameters, which will enable investigators 
to construct realistic waveform templates. 

This thesis documents an effort to describe the two-body problem in the framework of 
variational principles. 

The first half of this thesis describes a variational approach to describing a binary system of 
neutron stars. This is an appealing method of approximating solutions to the Einstein equations 
and the equations describing the matter of the neutron stars — we find we only need to minimize 
a single function to arrive at an approximation, rather than solving the full set of nonlinear 
Einstein equations. We derive expressions for quantities we call the "effective mass" and the 
"effective angular momentum" , which may be interpreted as the mass and angular momentum 
of the system under study, without a contribution from the gravitational radiation of the 
system. The variational principle dictates how we may derive the orbital angular frequency 
of the system, as well as the energy content of the gravitational waves — information vital to 
gravitational wave observatories. 

The second half of the thesis is dedicated to a numerical method for describing binary 
black holes. The mathematical framework used to describe the black holes is known as the 
"puncture" method, and is attributed to Brandt and Briigmann [Q. This method greatly 
simplifies the analysis of the geometry, allowing us to side-step many complications previously 
encountered when studying binary black holes. We develop a numerical algorithm employing 
adaptive multigrid techniques to solve a nonlinear elliptic equation describing the geometry of 
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CHAPTER 1. INTRODUCTION 



the holes, which in turn allows us to apply a variational principle for the energy of the system. 
Once again, the variational principle indicates how we may approximate the orbital angular 
momentum of the system, as well as additional geometrical and gravitational wave information. 

As mentioned above, both the analytical and numerical variational principles allow for 
accurate determination of orbital parameters, which in turn may be used to construct waveform 
templates for gravitational wave observatories. With accurate templates investigators can open 
a new window to the universe and "listen" to the symphony of black holes and binary neutron 
star systems. 



Chapter 2 

The Quasi-equilibrium Approach: A 
Variational Principle for Binary 
Neutron Stars 



In this chapter, we develop a variational principle for binary neutron stars. We begin with a 
Newtonian variational principle for neutron stars to give us a simple example of the formulation 
and power of variational principles in general. We then briefly discuss the importance of surface 
integrals in variational principles, and then begin developing our fully relativistic variational 
principle by entering the realm of the 3+1 formalism of the Einstein equations. This in turn 
leads us to a somewhat lengthy discussion of various aspects required in our variational principle: 
irrotational fluid flow in relativity, the quasi-equilibrium approach, symmetric trace-free tensors, 
linearized solutions to the Einstein equations, and finally the full formulation of our variational 
principle. 



2.1 Newtonian Analysis of Binary Neutron Stars 



We begin our Newtonian analysis by first demanding our neutron stars be composed of a perfect 
fluid: one in which there are no stresses or shears. We also require an equation of state which 
relates the fluid density p to the pressure p such that p = p{p). We also assume the binary 
system has an orbital frequency of Jl. We then define a quantity S, which is evaluated in the 
uniformly rotating frame: 



S = 



+ A 



1 ^ ^ 1 
-pu ■ u H — 



d^xp - M 



(V$)2 + + p / —+p 
P 



(2.1) 



where p is the density of our perfect fluid neutron stars, u is the velocity of the fluid in the 
rotating frame, $ is the Newtonian gravitational potential, p is the pressure of the fluid, and 
A is a Lagrange multiplier which ensures that the mass of each star is the integral of the fluid 
density. 

Because we are evaluating 5" in a non-inertial frame which is rotating at a uniform rate Jl, 
we may relate u to the inertial fluid velocity v by 



u — — Q X f+ V, 



(2.2) 
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where r is simply the radius of the orbit. It has been suggested and is widely held that 
neutron stars in binary orbits will not be tidally locked, or corotating. It has been found 
that tidally locked neutron stars would have unrealisticly large viscosities 0. It is beheved, 
therefore, the stars will have very little, if any, intrinsic spin. This scenario is called irrotational 
fluid flow, which translates to saying the fluid velocity v has zero curl: 



V X {T= 0. 

This implies we may introduce a vector potential ip via 

V = Vip. 

We may rewrite our equation for the fluid velocity in the rotating frame to be 

u = — i1 X r + Vip. 



(2.3) 



(2.4) 



(2.5) 



We now rewrite our function S, using the expression for the fluid velocity given by Eq. ( ^.51 ): 
S = I d^x 



(^-Q X f + V^j ■ (^-Q X f + V^j 



+^(^^y +p^+p r—+p 

8nG \ J Jo P . 



+ X 



d^xp - M 



(2.6) 



We now allow infinitesimal, arbitrary variations of the velocity potential ip, the fluid density 
p, and the gravitational potential $. For clarity, we analyze each variation separately, starting 
with the variation due to the velocity potential ip: 



d^x 



(2.7) 



After some rearranging and integrating by parts, may be written as 



5S.,i 



drx 



+ (b d X <pn ■ 



X f ■ Vp - ■ Vp - pV^tp 



5^ 



Vip — [Vt X f 



(2. 



where the surface integral is evaluated on the surface of the star, and n is a unit vector normal 
to the surface of the star. If S is to be an extremum the coefficients of Eq. ( |2.8|) demand 



V2^ = - 



V^) — ( X f 



Vp 

P 



(2.9) 



which is the equation for irrotational fluid flow 0. The variation oi-p'm.S also dictates Eq. ( p.9| 
is subject to a boundary condition, specifically 



v^i — ( r2 X f 



•n = 0, 



(2.10) 



which again is imposed on the surface of the star. Note our Eqs. ( |2.9| ) and ( |2.1(]| ) are the same 
as Teukolsky's Eqs. (13) and (14) 0. 
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We now turn our attention to the variation in S due to variations in the fluid density p. We 
find the variation may be written as 



(fx 



-n X f+Vip] + ^ + I — + A 

/o P 



5p. 



f2.111 



If we demand 5* be an extremum, then Eq. ( p.llj ) imphes 
^ ^-Q X f + Vij] ■ (-Q X f + Vijj] + $ 



P 



-A, 



f2.12) 



which is simply the Bernoulli equation for fiuid fiow given by Teukolsky's Eq. (12) 0. 

Finally, we examine the variation of S under changes in the gravitational potential This 
variation is 



6Si 



(fx 



1 



47rG 



V$ ■ V(5<l> + p5^ 



(2.13) 



With some rearranging and integration by parts, we find this variation may be written as the 
sum of two terms: 



5S. 



(fx 



P 



(5$ + 


j) (fx 











5$. 



(2.14) 



The location of the surface integral is somewhat ambiguous, and depends on the conditions one 
wishes to impose. For instance, if the location of the boundary is on the surface of the star, 
n is interpreted as a vector normal to the surface of the star. One then specifies the value of 
the gravitational potential on the surface of the star. On the other hand, one could choose a 
different surface in which to specify the value of the potential $ and the vector n. For instance, 
a different choice would demand the potential fall off sufficiently rapidly as r — > oo so as to 
eliminate the surface integral altogether. 

For whatever method one chooses to handle the surface integral for the gravitational poten- 
tial, if we demand S be an extremum, then Eq. ( p. 141 ) demands 



(2.15) 



which is simply the Poisson equation describing the gravitational field of the star. 

We may therefore describe the total variation of S as the sum of the individual variations: 

5S = 5S^ + 5Sp + 5S^, (2.16) 

where the individual variations are given by Eq. ( f^.8D , Eq. (^TTTj), and Eq. ( ^^.141 ), respectively. 
S is an extremum if and only if under arbitrary variations of ip, p, and $, the fiuid velocity 
potential, fiuid density, and gravitational potential are described by Eq. (|2.9|), Eq. ( |2.12| ), and 
Eq. ( |2.15|) , and are subject to the boundary conditions given by Eq. ( |2.10| ) and Eq. ( |2.14| ). 



2.2 The Importance of Surface Integrals 

Before we delve into a fully relativistic treatment of binary neutron stars, it is important to 
point out the role surface integrals (or boundary terms) play in variational principles. We 
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demonstrate this with the aid of an over-simphfied toy model. Imagine we are studying a one- 
dimensional thin wire of length L, and wish to formulate a variational principle which properly 
describes the temperature along the length of this wire. Let us define a quantity I to be 



1 /dT{x] 

2 [ dx 



dx. 



(2.17) 



where T{x) is the position dependent temperature of the wire. If we allow for infinitesimal, 
arbitrary variations in this temperature, then the variation in / becomes 



SI = - 



d'^T{x) 
dx"^ 



ST{x)dx + ST{x 



dT{x) 



dx 



- 5T{x 



dT{x) 



dx 



f2.18) 



where the boundary terms are the result of integration by parts. Note the coefficient of the 
integral is simply the one-dimensional Laplacian — the correct equation that describes the tem- 
perature in a source-free wire. The variation in / given by Eq. ( p.l8|) indicates I gives the 
correct formulation of the variational principle as long as we fix the value of the temperature 
on the boundaries (i.e., 5T{x)\ Boundary = ). 

However, the quantity I given by Eq. ( p.l7| ) does not give the correct formulation of the 
variational principle if we wish to specify the value of some other physical quantity on the 
boundary, say the derivative of the temperature. To formulate our new variational principle, 
we must modify / by the inclusion of an additional term. We define the quantity S as 



S 



1 fdT{x)V d 

2 \ dx J dx 



dx 



T{x 



dT{x) 

I 

dx 



(2.19) 



If we now allow for infinitesimal, arbitrary variations in the temperature, we find the total 
variation in S to be of the form 



5S 



(fT{x) 
dx'^ 



6T{x)dx — T{x)6 



dT{x) 
dx 



+ T{x)5 



dT{x] 
dx 



(2.20) 



Note the differences and similarities between Eq. ( p.20| ) and Eq. ( |2.18| ). Specifically, the 
coefficients in the integral are exactly the same — the one- dimensional Laplacian. However, the 
boundary terms are markedly different. The variation of S given by Eq. ( p. 20 ) indicates S gives 
the proper formulation of the variational principle if we hold the value of the derivative of the 

temperature fixed on the boundaries (i.e., 6 ^^^^^j Isoundary = 0). 

There is a moral to this story: in general, the formulation of the variational principle depends 
on the quantities one wishes to specify on the boundaries of the system. This idea will play a 
major role in our treatment of binary neutron stars. 

It is also important to note, in general, the boundary terms of a variational principle have 
a physical interpretation They may correspond to a mass, angular momentum, or other 
physical quantity which helps to specify the system. This will also become apparent in the 
coming discussion. 



2.3. THE 3+1 FORMALISM 
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2.3 The 3+1 Formalism 

We now develop the necessary tools to formulate our variational principle for binary neutron 
stars, starting with a discussion of the 3+1 formalism. We decompose our four-dimensional met- 
ric gab in the typical ADM fashion in which we fohate spacetime into spacelike hypersurfaces 
of constant time. The foliated metric then has the form 

gabdx^dx^ = -N'^dt^ + (c/x'* + N'^dt) {dx^ + N^dt) , (2.21) 

where 'jab is the three-metric on a spacelike hypersurface St, is the lapse function, and A^'* is 
the shift vector. The lapse function A^ is a measure of the proper time elapsed as one translates 
from one time slice to the next, and is related to the four- metric via 

9" = (2-22) 

The shift vector A^"^ is a measure of how coordinates shift from one hypersurface to the next, 
and is related to the four-metric via 

Mi 

= jr.- (2-23) 
For completeness, we express the spatial part of the contravariant four-metric as 

= - WN^/N"^. (2.24) 
The time translation vector is related to the lapse and shift via 

e = Nu" + N", (2.25) 

where u"" is a timelike unit normal {uaU"' = —1) to the hypersurface S^. Finally, we may also 
write the three-metric in a way which captures the flavor of a projection operator. Specifically, 

lab = 9ab + UaUb. (2.26) 

We must determine a covariant derivative operator, denoted as Da, which is compatible with 
this metric. This is achieved by projecting all of the indices of the four-dimensional covariant 
derivative Va to ensure a completely spatial quantity: 

DaV = la^l^cV (2.27) 

for any spatial vector V"' and 

Da<P = la^b<P (2.28) 

for any scalar field 0. 

With the fundamental geometrical quantities thus defined, then we may construct the Ricci 
tensor Rab and the Ricci scalar R from the three-metric jab- 

The foliation of the four-dimensional spacetime into three-dimensional hypersurfaces intro- 
duces a new geometrical quantity, the extrinsic curvature /Cab, defined by 

/Cafe = -'^Cu'-fab = -Ja'^cUb, (2.29) 
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where £„ is the Lie derivative with respect to the vector u"". Another geometrical result of the 
foliation is that we may write an expression for how the three-metric changes as one moves off 
of a particular hypersurface and onto another: 

Caab = -2NICab + 2D^aNb) = Gab, (2.30) 

which also defines Qat- 

In the Hamiltonian formulation of General Relativity, the momentum conjugate to '^ab is 
TT /IGvr, where tt'^'' is known as the field momentum p|-p!T|, and is related to the extrinsic 
curvature via 



.^1/2 (^J^ab _ ^abj^c^^ ^ ^2.31) 



where 7 is the determinant of the three-metric. 

We may now write the Einstein equations in the 3+1 formalism. Two contractions of the 
four-dimensional Einstein equations with the unit normal {u"'u^Gab) yields the Hamiltonian 
constraint, and must be satisfied on every hypersurface. It may be written as 

R + 7"' - ^"'^ab^ = ^^^Ph = ^f, (2.32) 

which also defines Af. The energy density pn depends on the stress-energy tensor T"'' via 

Ph = W^u'Tab. (2.33) 

Likewise, a single contraction of the four- dimensional Einstein equations with the unit nor- 
mal, and then a contraction with the three- metric [ub'^^G'^^) yields the momentum constraint, 
and must also be satisfied on every hypersurface. It is given as 

Db (vt^Vt'/') = -Svrj" = M\ (2.34) 

which also defines M"'. The momentum density is related to the stress-energy tensor via 

f = Ubi:r\ (2.35) 

The remaining spatial part of the Einstein equations contains the dynamics, and is given by 

£^^afe _ pafe _^ St^N-1^/^S^\ (2.36) 

where 

+ -i^'^D^ {-i-^/^-K^^N^) - -K^^D^N^ - Tx^^D^N" (2.37) 
and 5"** is the spatial stress tensor, defined as 

Sab ^ i:%'nd. (2.38) 



2.4. IRROTATIONAL FLUID FLOW IN GENERAL RELATIVITY 
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If one wishes to analyze solutions to Einstein's equations which are stationary or approx- 
imately stationary (i.e., not evolving with time), this corresponds to the constraint equa- 
tions given by Eq. ( |2.32D and Eq. ( |2.34| ), as well as the dynamical equations Qab = and 
V"''' + StiN'^'^/'^S"'^ = 0. Solutions to this set of equations are known as quasi- stationary, or 
quasi-equilibrium solutions [^]. Physically, they may approximately correspond to a binary 
neutron star system in a circular orbit, where the radiation reaction time scale is much larger 
than the orbital time scale. It is these very types of systems we will explore. Let us first inves- 
tigate the consequences of modeling our neutron stars as perfect fluids, with the constraint of 
irrotational motion placed on these stars. 



2.4 Irrotational Fluid Flow in General Relativity 

There are three time scales involved in orbital dynamics in the framework of General Relativity: 
the orbital period Torut, the time scale of circularization of the orbit due to the radiation of 
gravitational waves Tcircic, and the time scale in which the radius of the orbit decreases due 
to radiation reaction t„ [0. These time scales are related by Torbit ^ ^circle ^ Trr- Because 
of the relative sizes of the time scales involved, it is believed that a good approximation to 
the physical system is a sequence of binary systems in circular orbits in which the effects of 
gravitational radiation are small. These systems are said to be in quasi-stationary or quasi- 
equilibrium circular orbits. As was mentioned in the Newtonian treatment of our binary system, 
it is also believed that binary neutron stars will have very little intrinsic spin with respect to 
a local inertial frame; the fluid viscosities would be unrealistically large if this were not the 
case. Hence, it is beheved binary stars exhibiting irrotational fluid flow serve as a well-justified 
approximation to reality 0. 

In this section, we first derive the pertinent equations describing irrotational fluid flow 
following the methodology of Teukolsky 0, and then we rewrite these equations in the 3-1-1 
formalism. 

We begin by defining the relativistic enthalpy h as 

h = (2.39) 
Po 

where p is the total energy density of the fluid, p is the pressure, and po = rriBn is the rest mass 
density. The baryon rest mass is and the baryon number density is n. We also assume an 
equation of state relating the pressure and the density via p = p{p). 
The stress-energy tensor of an isentropic perfect fluid is 

T^b = {p + p)U''U^ + pg''\ (2.40) 

where is the fluid four-velocity (not to be confused with the unit normal to the hypersurface 
u"") and g""^ is the four-metric of the spacetime. Conservation of stress-energy (VaT"* = 0) 
allows us to write the conservation of energy equation for the fluid by projecting the conservation 
equation along the four-velocity: 

-UaVbT'^' = [(p + p)Ua] - U'^VaP = U^V aP + (p + p) V"t/, = 0. (2.41) 

Likewise, we may determine Euler's equation for the fluid by projecting the conservation of 
stress-energy in a direction perpendicular to the fluid four-velocity: 

{9a + UaU") V^n, = {p + p)U'VJJa + [q^ + U^U') V ,p = 0. (2.42) 
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In addition to the conservation of energy and Euler's equation, we may also write the equation 
for conservation of rest mass: 

Va {poUn = 0. (2.43) 

We note Euler's equation, written in terms of the relativistic enthalpy, is given as 

U^Va{hUb) + Vbh = 0. (2.44) 

At this point, we introduce the concept of irrotational fluid flow in relativity. In terms of 
the relativistic enthalpy and the fluid four-velocity, the relativistic vorticity tensor is defined as 

Uab = Pa'Pb' l^cihU,) - V.ihU,)] , (2.45) 

where P^'' = 5f^ + If^Ub is a projection tensor. Using the form of the Euler equation given by 
Eq. ( 2.44 ), the relativistic vorticity tensor [0 may be written as 

UJab = Va{hUb) - Vb{hUa). (2.46) 

If a fluid is irrotational, then the vorticity tensor is equal to zero. The physical consequences 
of this indicate the neutron stars have no intrinsic spin with respect to a local inertial frame. 
If we insist on a vanishing vorticity tensor, this implies we may introduce a velocity potential 
0,0, denoted as t/), in a fashion similar to that of the Newtonian problem mentioned above: 

hUa = Vai^. (2.47) 

The introduction of the velocity potential allows us to rewrite the conservation of rest mass 
equation, Eq. (|2.43|) , as 

(/i-VoVa^) = 0, (2.48) 
and we note the normalization of the fluid four velocity, V^Ua = —1, results in 

h^ = - iyaip) V>. (2.49) 

In general, if a fluid is exhibiting irrotational motion, then in addition to being described by 
some equation of state p = p{p), the fluid also satisfies Eq. ( |2.39| ), Eq. ( p.48|) , and Eq. ( p.49|) . 

In anticipation of describing the irrotational fluid in the Hamiltonian formalism of General 
Relativity, we now decompose the fluid equations in the 3+1 formalism under the assumption 
that the stars are in quasi-equilibrium. 

In the quasi-equilibrium approximation, we require the existence of a Killing vector in a 
particular coordinate system of the form 

r=| + n|. (2.50) 

This Killing vector is a symmetry generator for the matter fields, which implies 

CrihUa) = = C^iVa^p) = V, (Cpp) , (2.51) 



2.4. IRROTATIONAL FLUID FLOW IN GENERAL RELATIVITY 
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where C once again denotes the Lie derivative. The above condition in turn imphes 

A-V = t"Va^ = ^ + n^ = -C, (2.52) 

where C is a positive constant related to the BernouUi integral. 

Before we write down the fluid equations in the 3+1 language, it is useful to note some 
relations which are used in the derivations. The derivative of the vector normal to a spacelike 
hypersurface is 

VaMb = -}Cab - UbDa lu N. (2.53) 

Recall ICab is the extrinsic curvature of the spacelike hypersurface, Da is the derivative compat- 
ible with 7ab, and N is the lapse function. We also note the result of the derivative acting on 
a scalar field $ is 

V„<l> = Da<^ - UaU'Vb^. (2.54) 

Likewise, we note the result for any spatial vector to be 

VaVb = DaVb - UaU'VM " ICacVu,. (2.55) 

Armed with the above useful expressions, we may begin to derive the fluid equations, specif- 
ically Eq. (p.48| ) and Eq. (p.49|) , in the 3+1 formalism. We begin by noting 

t^'Vai^ = Nu^'Vaip + N^'Daip = -C, (2.56) 

which directly leads to 

u^Va^ = (C + iV«D,V) • (2.57) 
We also note for any scalar / which satisfies 

A-/ = (2.58) 
then we may use a variant of Eq. ( 2.56| ) to derive yet another useful expression. Specifically, 

f^Vaf = Nu'^Vaf + N^DJ = 0, (2.59) 

which implies 

u^Vaf = -j^N'^DJ. (2.60) 
In light of Eq. ( ^.54| ) , this implies 

Va^ = Da^lJ + Ua{C + N^Db^jj) /N. (2.61) 

Therefore, we may write 

VVa^ = ^"Daip + (V"Ua) (C + Db^P) /N + U^'W a [{C + iV^A^') I N] . (2.62) 
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Using Eq. ( p.55| ) with the identification Va — > Daip, the first term of Eq. ( |2.62| ) may be 
written as 

VDaip = D^Da^jj + {Dai))D'' In N. (2.63) 

The second term in Eq. ( |2.62| ), V^Ua, is simply replaced by minus the trace of the extrinsic 
curvature, — /Cq"- Using Eq. ( p.60|) , we may rewrite the third term of Eq. ( |2.62|) as 



N 



N 



{C + N'D,^) 



(2.64) 



Expanding Eq. ( p.48|) and using the simplifications indicated by Eq. ( p.62|) , Eq. (|2.63|) and 
Eq. (|2.64|) , we may express the equation for irrotational fluid flow in the 3+1 formalism as 



0, 



(2.65) 



which also defines Note this equation is equivalent to Teukolsky's Eq. (50). 

We also note the 3+1 decomposition of the normalization of the fluid four velocity, previously 
given by Eq. ( p.49|) , which defines A: 



A = h' + (D'^ij) Daij - ^ (C + N'D.ijf = 



(2.66) 



In addition to Eq. (|2.65|) and Eq. ( p.66|) , the fluid four- velocity is subject to a boundary 
condition at the surface of the star. In particular, the four-velocity must be perpendicular to 
the normal vector of the star's surface. We define the surface to be the location in which the 
pressure p vanishes, so the boundary condition may be written as 



-1 



-DaP I astar = 0, 



(2.67) 



which also defines ^^astar- 

For completeness, the decomposition of the stress-energy tensor for an irrotational fluid is 
given by Eqs. O), (p^) and (p:38|) g^. Specifically, 



(2.68) 



(2.69) 



and 



Sab = J {Dai^) D,i; + [p - ^A) 



(2.70) 



Hence, for a given equation of state p = p{p), a solution of the quasi-stationary Einstein 
equations with irrotational fluid flow is a set of N, N"', 'jab, Po, and C which satisfy 
Eqs. (|2.65| ), ( p.66|) , and (|2.67|) in addition to the quasi-stationary Einstein equations given by 



Eqs. (g;^, ( p:^^ , ( p:^! and (^) with sources given by Eqs. ( PTBBQ , { ^jLE^ , and ( PTDD . 
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2.5 Foundations of the Variational Principle 

Before we proceed with the details of the variational principle, we first describe the physics and 
the implications of the quasi-equilibrium condition on our binary system. In a realistic binary 
star system, as the two stars orbit, the system will radiate gravitational waves. The back 
reaction of these waves will in turn "push" the orbiting stars into closer orbits. The system will 
continue to radiate, and the stars will slowly spiral inward until tidal forces distort the objects 
and cause material to be transferred from one star to another [|13|,|1^, 0. If the stars are not 



completely tidally disrupted at this point, they will eventually merge to form a single object, 
which may collapse to form a black hole. 

By demanding that our system obey the quasi-equilibrium Einstein equations, we are ef- 
fectively disallowing any time evolution of our system. Physically, this would correspond to 
demanding the radiation reaction force is negligible, so the orbiting stars would forever remain 
at a constant radius orbit. Again, this is a realistic approximation because of the long time 
scales of radiation reaction forces. 

However, rather than "turning off" the radiative terms (and potentially losing some in- 
teresting physics), we choose to place our binary system in quasi-equilibrium by setting up a 
boundary which encompasses our system |T^. We then carefully choose the amphtudes and 
phases of gravitational radiation propagating from this boundary inward towards the binary 
system. The ingoing radiation feeds exactly the same amount of energy into the system as the 
energy lost because of the radiation emitted by the binary system. This physically unrealis- 
tic construct greatly simplifies a large portion of the analysis to come, and it also allows us 
to extract useful information about realistic binary systems. One may be tempted to set the 
location of this boundary at spatial infinity, but it has been shown periodic geometries 
containing radiation are not asymptotically fiat. This effectively limits our ability to describe 
the gravitational field at infinity via the linearized Einstein equations. Hence, the location of 
this artificial boundary is subject to two constraints: first, the energy content of the gravita- 
tional radiation within the region of space bounded by this surface must be much less than the 
energy content of the sources themselves; secondly, we demand in the vicinity of this boundary 
the gravitational field is described by the linearized Einstein equations. 

The following discussion is somewhat lengthy and mathematically intense. To help simplify 
matters, we delay any inclusion of the irrotational fluid until we have the full mathematical 
machinery of the variational principle at our disposal. 



2.5.1 The Initial Formulation of the Variational Principle 

This section is devoted to deriving an expression we will eventually employ in our variational 
principle, as well as some mathematical conventions and other useful formulae. We begin 



by noting several useful conventions |]I4[ related to the variation of some of the fundamental 
geometrical quantities: 

(2.71) 

-6 {r') , (2.72) 

(2.73) 
(2.74) 









= 77 07cd = - 


7 


= det(7a6). 


57/7 


= 7'''5^ab = S^: 
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The unit normal to a surface is defined by a scalar field r = constant via 

Ha = pDar, 

where in this context p is not the fluid density, but is defined by 



(2.75) 



(2.76) 



It is important to note r is not necessarily related to the flat space r coordinate. The metric of 
a two-dimensional boundary, as well as the projection operator onto this boundary, is given by 



and a is the determinant of aab- We also note the useful relationship 



(2.77) 



f2.78) 



Some useful expressions for variations of the geometry, holding the location of the boundary 
fixed, are 



K^a) = SpDaV = na6p/p, 



(2.79) 



n^Siua) = -5(n")n„ = 5p/p, 



(2.80) 



(2.81) 



and finally 

S (7"'') = 6 [a''^) + rfal^drf + n^a;^5rf - 2rfn^5p/p. 

We also note a variety of useful forms of Gauss' law: 

d 



ribA^ 
P 



{-f'/^A')d'x= f{Dbr)A''y'/^d'x 



where we have employed Eq. ( ^^.751 ) and used the fact that 

7 = ap^ 



(2.82) 



(2.83) 



(2.84) 



(2.85) 



We may now begin to lay the foundations of our variational principle. A variational principle 
for the Einstein equations may be constructed by integrating the scalar curvature of the four- 
metric [|T0|. In the 3+1 formalism, this is expressed as 



IGttH, 







D I f ^ ^ b ^lb^ 

^ + 7 [l^T^a^b ^ab 



+ 2iV"A (7"'/^,^) \ ^'/'d'x, (2.86) 
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where the integrand of IGttHq is simply the 3+1 form of the Ricci scalar [|^. 

The scalar derived from the three-metric, R = 'y°'''Rab, has the following variation 

6R = -d-iabR"' + DW6^ab - D''Da5^,\ (2.87) 

which allows us to write the variations of the different parts of the integral given by Eq. ( |2.86|) . 
Specifically, if we allow variations of N , N"", ■jat, and vr"'', we find 

[NRj^/^] = 6NR- NS-fabiR"^ -ll^'^R 



2 

+ D'' [ND'd^ab) - D'' {NDJ^') 

- D''{6^abD'N)+D''{6%'DaN), (2.88) 



1 



-1/2^ 



N (1 

7 



-T^aT^b - '^""T^ab I 7 



.1/2 



bN Nb-i^ 
7 



27 



T^b ~^ ^ab 



+ 
+ 



N 

7 
N 

7 



(2.89) 



and finally 



= 25N^Db (vr„V7'/') - 25'K'''DaNbh^'^ 
- 5^ab [27r^^DeiV77i/2 - (iV%"V7i/2)] 

+ Da{2N\'^'5^bch^'^). 



(2.90) 



After substituting the above three variations into 167r5ifo, and applying Gauss' law, the total 
variation in Hq becomes 

IQttSHo = - J {6NX^^/^ + 26N''Afa7^/^ + habV''' -5r'gab)d^x 
+ j [n^N'^-n^'^S^bc/l^'^ - 2n,iV,57r'^V7i/2 

+ j {-Nn^'D'd-iab + Nn^'Dad^,' 

+rf5-iabD^N - n^d-i^DaN) a^l'^£x. (2.91) 

It would be useful to re-express the boundary terms of 1Qtt5Hq in terms of only the variations 



of the geometry, and not derivatives of the variations [0 . With this goal in mind, we proceed 
to manipulate the surface integrals of Eq. ( p^.91D . 
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We begin by noting the surface integrals involving n"'^ may be rewritten as 



-26 



(2.92) 



Turning our attention to the surface terms involving Sjab, we note the first two terms of the 
last surface integral of Eq. ( p.91| ) may be written as 

= j [Nnaa^D,5 (7"^^) - Nn''a,,Da5 (7'^)] a"^d^x. (2.93) 

The first term on the right hand side of Eq. (|2.93|) yields 

Nnaa!;Db5{-i''')a^'^d^x = jn -a^^6 {a'"') DbUa + D'^{aa^5n'^) 

-2p-^6pa^''Dbn^] a^/^d'^x, (2.94) 

where D[. is the two dimensional derivative operator on the boundary. We may further simplify 
our expression by noting ND^{a^6n'^) = D^{Na£6n'^) — a^dn'^D^N . The realization that 
the divergence term contributes to an integral of a two dimensional divergence over the two 
dimensional boundary, and is indeed zero by Stokes' theorem, allows us to ultimately express 
the first term of Eq. ( p.93| ) as 



j Nna(J^Db5{^^')a^/^d^x = j[-N5{a''^)Dani, - a^^5n^DaN 

- 2Np-^6pa'"'Dbn^]a^^^d\. 
Now, we write the second term of the right hand side of Eq. (|2.93| ) as 

- Nn'^aM (7'^) (r'/'d^x=- j N [n'^Da [a.^^'"')] 

+2rfa;;Da {n^ajldn'^) ] a^/^d^x. 



(2.95) 



(2.96) 



Substituting 25((T"^D„n;,) = -7-157 - Da[abc5{(T^^)n'' - 2(T^'^5n^] into the result of Eq. (|2:96D 
yields 



^ Nn''abcDa5{-f'"')a^^'^d\ = ^ N [25{a''''Danb) + 2p-^SpDan'' 



However, Stokes' theorem dictates 

N [-2a;Da{a^^5n^)] a^'^d^x 



-2a,"Da«5n^)l a^'^d'^x. 



-2D^{Na^^5n') + 2a^^5n''DaN 



(2.97) 



a^/H^x 



j [2a^^5n^DaN] a^'^d^x. 



(2.98) 
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At long last, we may write 

+ j [{-Na-^6a - 26N + 2N p^^ 6 p) D 

+2a^^6n^DaN] a^/^d^x. (2.99) 

Finally, we may also note 

j{(y^^6n^DaN + 7f6-^abD^N - -f-^6-fn''DaN)a^/^d^x 

= - j a-^6an"-DaNa^/'^d^x. (2.100) 



Substituting Eqs. ( ^^951) and (|239|) into Eq. (|]93D, coupled with the usage of Eqs. (|2]8|) 



and ( p. loop , we may reduce the ^7 surface terms of IGvr^ifo to 

lQT:6Hf = 26 (^^ NDaTi'^a^/^d^x^ 

- j [N6{a''^)Dani, + {26N + Na-^6a)Dan'' 

+a-^6an''DaN] a^/^d^x. (2.101) 
Using Eq. ( p.91|) with Eqs. (|2.92| ) and ( p.l01| ), we now define a new quantity Hi\ 



WnHi = IQ-kHq + j 2n"A^S"^/27rafe(T^/2d\ - j 2N DaU^a^'^d^x. (2.102) 

We are ultimately interested in how Hi varies under arbitrary, infinitesimal variations of the 
geometric quantities N , N"-, 'jab and tt"^, while the location of the boundary St remains fixed. 
The resulting variation is 



'^x 



lQn6Hi = - j {6NMi^'^ + 26N''Mai^'^ + 6-iabV'''' - 6Ti''''gab) d^ 
- j {6a''\NDan^ - aabD^iNrf)] + 26NDan''] d^x 
+ / (naA^"7r^^7-i/2^7fee + 2n^6N^-i~^/^'Kab) a^'^d'^x. (2.103) 



Equation ( |2.103|) indicates how Hi may be used in a variational principle. If the boundary 
conditions of the system specify the values of o""^, N, iV", and if the normal vector is per- 



pendicular to the shift vector A^'^ |]T9|, then all of the surface integrals of 6H1 vanish. It then 
follows that Hi is an extremum under arbitrary, infinitesimal variations of A^, A^°, 7ab and tt""^ if 
and only if the variation of these quantities is about a solution to the quasi-stationary vacuum 
Einstein equations. 

In principle, it is perfectly legitimate to specify the values of a"*, A^, A^" and on the 
boundary, but in practice this boundary data does not have a direct physical interpretation in 
the sense of being directly correlated to quantities such as angular momentum or mass. Also, 
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it may not be an "easy" task to determine the values of these geometrical quantities which are 
to be specified on the boundary. If we are to seek an eloquent, physically intuitive variational 
principle, we must exert some effort and re-formulate the variational principle for Hi. The 
quest for more physical insight leads us into a discussion of symmetric trace-free tensors, the 
very nature of the quasi-equilibrium approximation, and a generalized solution to the linearized 
Einstein equations credited to Thorne. 

2.5.2 Symmetric Trace- Free Tensors 

We begin our efforts to re-formulate our variational principle for Hi by taking inspiration 
from Thome's generalized solution of the linearized Einstein equations [^. Thorne chooses 
a particular gauge and proceeds to decompose his solution in terms of symmetric trace-free 
tensors. Let us first discuss some of the properties of symmetric trace-free (or STF) tensors. 

Tensors with a large number of indices, say i, are common. We introduce a convenient 
short-hand notation as 

'^L = Tj^j^,„j^, Tl-2 = Tj^j2-ji-2- (2.104) 

The indices represent tensor components in a Cartesian coordinate system, and the tensors are 
both symmetric on all pairs of indices and are trace-free. The Cartesian components of these 
STF tensors are functions of t and r only, are independent of 9 and 0, and are denoted with 
capital script letters. For example, 

= '^hh-k = '^{hh-3i)-> TiiL-2 = (2.105) 

where 

dTL/de = 0, dTL/d(f) = 0. (2.106) 

It is also useful to use the abbreviation 

Ul = nj^nj^ . . .rij^ (2.107) 

to represent the outer product of i unit radial vectors. 

Another useful property of the STF tensors which are only dependent on t and r is 

Am'^BL'Ti'^'dn = ^^H^AlBlSw (2.108) 

for arbitrary STF tensors Al and Bi, where the repeated multi-index L implies summation 
and the integral is performed over a unit sphere with area element dVL. 

A convenient representation of a STF tensor on a two-sphere with ^ indices is via a basis 
set of 2^ + 1 tensors 3^1,™, with — £ < m < ^, as defined by Thorne for a Cartesian coordinate 
system. It is interesting to note 

ytrn^L ^ yim^ (2.109) 

where Y^"^ is the well-known spherical harmonic function. It also follows 

3;^™ = (-l)™(3;^ -"^)*, (2.110) 
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and that the yf^ are orthogonal, 

(Of 4- 1 V 

yemiyem2* _ V ' J " ^mim2 ^2 HI) 

We also note the relationship between the yjj^ for two different Cartesian coordinate sys- 
tems, where the primed coordinates are rotated by an angle $ about the z-axis with respect to 
the unprimed coordinates: 

yem' ^ ^-^m^yem_ ^2.112) 

With a basis set of STF tensors given by 3^^™ we may decompose Ti{t, r) as 

e 

TLit,r)= TeUt,r)y'r, (2.113) 

m=—£ 

where the coefficients Tim{t,r) are determined from the orthogonality condition described by 



Eq. (|2:ttt 



If our STF tensor is a combination of ingoing and outgoing radiation, then the radiative 
terms may be separated as 

r) = Tfit + r) + Tr\t - r), (2.114) 
and we may naturally decompose the individual radiative terms as 

r^'°/°"*(i±r)= ^ r;^/°"*(t±r)3^i-. (2.115) 

m=-£ 

If TL(t, r) is quasi- stationary in a rotating frame of reference, where (f)' = (j) — Qt, then 

T;^/°"*(t ± r) = ir^^e[±'''^'"+*"™(*±''^l, (2.116) 

for some constant complex amplitudes Tem and phases "^em, where Um = —mQ. If the waves 
have equal amounts of ingoing and outgoing radiation for every value of i and m, then the 
phases i^em are real. If the STF tensor Tl is itself real, this implies 

^i,m = -^i,-m (2.117) 

and 

T,,^ = i-irTl_^. (2.118) 

The usefulness of the STF decomposition will become more apparent as we proceed through 
our analysis. Until then, it is important to point out that if '71(t, r) is a real valued tensor 
field which is quasi-stationary when viewed in a rotating frame, and if it has equal ingoing and 
outgoing radiative terms, then the field is completely described in terms of the amplitudes Tim 
and phases ^im, subject to Eq. ( |2.117| ) and Eq. ( ^.118| ). For this scenario, Ti{t, r) is described 
by 

Ti(t,r)= Timyi'^cos{umr + ^im)e'^-'. (2.119) 

m=-£ 

The above decomposition for Tiit^r) holds for all values of m. 
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2.5.3 Thome's Generalized Solution to the Linearized 
Einstein Equations 

Recall the decomposition of the STF tensor fields, described by Eq. ( |2.119|) , is made possible by 
the introduction of a region in which ingoing radiation is carefully matched with the amplitude 
and phases of the outgoing radiation. Also recall we stipulated the location of this region is 
subject to the condition that the energy content of the gravitational waves within this volume 
of space is much less than that of the sources alone. In addition to this, we also require the 
gravitational field to be described by the linearized Einstein equations. 

Thorne gives a general solution to the metric perturbation (7^^ in the DeDonder gauge. 



He expresses his solution in terms of the retarded mass and current moments, Iiit — r) and 
^lit — T^)- For our system in which the metric is quasi-stationary when viewed from a rotating 
frame of reference and the ingoing and outgoing gravitational radiation have equal amplitudes 
and phases, we may express the mass and current moments in terms of the amplitudes, I^m and 
S^rni and the respective phases 'd\^ and "i^f^, subject to the conditions laid out by Eq. (|2.117|) 



and Eq. (|2.118|) . For this solution, the mass monopole is denoted as /o,o- In this mass-centered 



coordinate system Ji_m = 0, 5*1,0 is the angular momentum and 6*1,^1 = 0. In terms of the 
amplitudes and the phases, Thome's solution is 

^00 = 2 E ^-^h^y'^VL [r-' cos {uOraT + C)] e^"-*, (2.120) 



= 4 E ^^^rrJimYjT^lVL-l [r'^ COS {uJ^T + c'^-' 
£m 



(2.121) 



and 



£m 



em ^ 



(2.122) 



In the above equations, fij denotes the fiat space three-metric. 

We choose a slightly different gauge in which all of the time dependent terms, those with 
m 7^ 0, are removed from g^Q and Qqj. A particular choice of gauge field modifies the 

metric according to gl^"^^ = gl^^"^ — 2V(a^fe), where 

dit/dt = ^[m ^ part of ^qq] 

= Yl ^^^I^nyfr^L COS [umT + ^L)] e*"'"* (2-123) 
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and 

d^j/dt = -Vj^t -[m^O part of g^j]. (2.124) 
With this particular choice of gauge, we may write the lapse function N as 

N = (-^°°)-'/' = 1 - 1/2, (2.125) 

where 

We also define the shift vector 5'-' = N'^g^^, and our gauge choice reduces it to 

-2re.,,S,,y/n, - 4^(2£-l)!! 
J 2^ (^^ _^ iy_^.i+i^ip<i^ioypL-inqL-i- (2.127) 

The three-metric is given by 

7i, = (l + /)^ + /ii„ (2.128) 

where all of the information pertaining to the radiation is contained within hij. To facilitate 
the description of h^, it is useful to introduce a basis set of solutions Hf^'^ which obey the 
tensor wave equation in flat space 

^^^kjjeraQ ^ ^l^Hfp"^ = 0, (2.129) 
where Q runs over / and 5". This basis set of solutions are also transverse 

^ijjemQ ^ ^2.130) 

and trace-free 

j^ijjjernQ ^ Q ^2.131) 
Written out explicitly, this basis set of solutions is 

-u;-'ytVuj - ^ytii^^)L-i] [r-' cos (a;^r + ^L)] 



(2.132) 



and 



TTemS _ 8( l)^+^£ r «^ 

~ (£+1)! [^^rnepq{iyj)pL-2^ gL-2 



'3^S-ieM*V,),i_i] [r ' cos {uj^r + ^f J]. 



(2.133) 
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In the local wave zone, where the radiation can be regarded as a small perturbation about 
a flat background metric, the leading 1/r behavior of the basis solutions is 

= %^ (^.^J) - ^cr^V.,) y;,l-2nL-2 cos {u^r + - ^^/2) (2.134) 



and 



j^f^alale,^,y%^,n^L-2 cos (u;™r + - ^vr/2) . (2.135) 



We complete the decomposition of the radiative part of the metric hij by relating it to the 
basis solutions via 

hi^= jl^Q^i^^t^ ^2.136) 



where 



/^Ir^ = Q.™^J"^. (2.137) 



With our choice of gauge, a number of useful identities hold at linearized order: 



V.,h) = 0, 


(2.138) 


PK, = 0, 


(2.139) 


VfcV'^J = 0, 


(2.140) 


HiS' = 0, 


(2.141) 


V,S' = 0, 


(2.142) 


VkV's' = 0, 


(2.143) 



and 

V.V'h., - ^ = 0- (2-144) 

With this particular choice of gauge, we also note the linearized geometry's extrinsic curva- 
ture K-ij obeys the following equations 

2~dt 



^.. = -o^ + V(.5,), (2.145) 



riC,, = 0, (2.146) 

and finally 

^ _^i/2;cu_ (2.147) 

We use several of the results from this section to aid in the evaluation of the surface integrals 
of our variational principle, given by Eq. (|2.103|) . The following section will be dedicated to 
the explicit evaluation of these surface terms. 



2.5. FOUNDATIONS OF THE VARIATIONAL PRINCIPLE 



23 



2.5.4 Evaluation of the Surface Terms 

Let us refresh our memory as to the purpose of studying Thome's generahzed solution to 
the hnearized Einstein equations, and our introduction of the concept of the weak field zone 
boundary. In § (|2.5.1|) , we defined a function Hi to be 



- j2NDan''a^'^d^x, (2.148) 

and the total variation of Hi resulted in 

IQt,5Hi = - j {5NMi^'^ + 25N''Mal^'^ + 5-iabV - dT^'^'gab) d'x 
- j {Sa"^ [NDaUb - aabD,{Nn')] + 25iVD„n"} £x 

+ (f (n,Ar"7r'"=7-^/2^7b, + 2n"5Ar%~^/2^,b) a'^^d^x. (2.149) 



Recall a question arose as to the feasibility of holding geometrical quantities, such as the 
lapse N or the two- metric aab, fixed on the boundary Sj. As stated above, it may be more 
desirable to specify the value of physical observables on the boundary. We now use the linearized 
solution described in §( p.5.3| ) to rewrite the surface integrals in Eq. ( p.l49| ), in hopes that a 
more physically intuitive variational principle will result. 

We first mention some notational conventions. At the location of the boundary, which is 
in the weak field zone, the geometry is nearly flat and is described by the linearized Einstein 
equations. In this region, indices are raised and lowered by the flat space metric fij, and 
summation is implied for repeated indices. It is important to note some repeated indices may 
appear as both being raised or both lowered, but the summation convention is still implied. 
The flat space derivative operator is denoted by V°, where the sub- or super-script denotes a 
quantity associated with the flat space metric. We further assume our weak field boundary is 
spherically symmetric, and is located at a constant Cartesian radius of r. The outward pointing 
unit normal to this surface is denoted as n° = V°r, which is not to be confused with the vector 
Ua which is normalized with the three-metric 'jab- Likewise, the two-metric associated with the 
spherical boundary embedded in fiat space is a?- = rV°n°, and has determinant ctq- Often 
times, quantities are contracted with the fiat space vector n°, in which case a subscript r is 
used ( for example, hir = hijUQ ). Also, the radial partial derivative is denoted as dr = ""-oV^. 
We also note the shift vector in an inertial reference frame is 5"*, defined by Eq. (|2.127|) . In a 
frame rotating at a rate of Q, the rotating shift vector may be written as 

N' = n¥ + S\ (2.150) 



where $*c}/(9x* = d/dcp. 

We may now turn our attention to the surface integrals of the variation of Hi, given in 
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Eq. ( |2.149| ). The first surface integral of Eq. ( |2.149| ) may be rewritten as 



J To 



-6 i i N^Vln^yn^x 



ro 



(2.151) 



The total variation of the surface integral on the right hand side will eventually be absorbed 
into a new definition for H^. The remaining terms are of second order in the wave amplitudes 
lirn and Sirni and will require some effort to rewrite. 

First, we rewrite the term involving n"-5N^Tiab in Eq. ( |2.141j ). Specifically, 



+ 167rfi(5J+ / 2n'^(55%-^/27r„ba^/2rf\, (2.152) 

levrJ = - 1 2n°$S"^^^7r„6(T^/2^22,_ (2.153) 

In the vicinity of the weak field zone boundary, J is approximately the angular momentum 
5*10 of the linearized geometry up to first order in the wave amplitudes. Once again, the total 
variation of the surface integral on the right hand side of Eq. ( |2.152 ) will be absorbed into a new 



where 



definition of Hi, and the remaining surface terms are of second order in the wave amplitudes. 

We now define a new function i^2, which is similar to Hi, but includes the total variations 
of Eq. (IZTSTI) and Eq. (pTTS^ : 



'^x 



16nH2 = - j {NU + 2N''J\fa)l^'^d^x 

Jro 

+ (f V^ial^^d^x 

Jro 

+ I 2n''S''-i-^'^'Kab(y^'^d^x. (2.154) 



The second surface integral evaluates to Svrro and does not change under a variation. It is 
included so the surface integrals of H2 evaluate to the mass monopole M = Iqq at first order in 
the wave amplitudes. 
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Arbitrary, infinitesimal variations in N, iV", 7^6, and vr"^ result in a variation in H2, given 



by 



X 



(2.155) 



Note that each of the terms in the surface integrals are of second order in the wave amplitudes 
hm and Sgm- 

At this point, we now attempt to rewrite the surface integrals in terms of the parameters of 
the linearized geometry, namely Iim, Sim, '&{rni ^im^ ^^e variations of these parameters. 

Let us first note the following relationship, valid up to first order in the linearized parameters: 



Idh 



ab 



2 dt 



— V(a5'b). 



(2.156) 



We now substitute Eq. ( p.l56| ) into the last surface term of Eq. ( |2.155|) to yield 

/ 2n''5S^-i-^'^Tiab(y^'^d^x = - I n^S' (ViSj + VjSi) a^/^d^x. (2.157) 

Jro J ro 

Note the dhij/dt term vanishes on integration because is axisymmetric (m = 0), but hij 
is necessarily not axisymmetric (m 7^ 0). Using the fact riiS^ = in the linearized geometry, 
and performing an integration by parts, we find Eq. ( p.l57| ) may be written as 



(f {5S'Si/r - SS'n'V.Si) a^^^d^x. 

Jro 



(2.158) 



Using the linearized form of the shift vector given by Eq. (|2.127 ), and the orthogonality 
condition of the yjj^ given by Eq. ( p.lllp , we find the second term on the right hand side of 
the above equation is symmetric in 6S^, so we may ultimately write 



2n''5S'^-'/''nat'y'/''d^x = ^5 



(f {S'SJr - S'drSi) a^l'^d^x 



(2.159) 



We employ the result of Eq. ( p. 159 ) after we rewrite the remaining surface terms of Eq. ( 2.155 ). 

Next, we note the following useful identities, all accurate up to first order in the radiation 
amplitudes hm and S^m'- 



(2.160) 



'^ + n'Vi\I + -Kr 
r \ 2 



(2.161) 
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1/2 1/2 



and 



(2.162) 



(2.163) 



Armed with the above identities, we may analyze yet another portion of the surface integrals 
of Eq. p7[55| ). Specifically, 



J m 

a^/^d^x. (2.164) 



6hrr ( H drhr 

r 4 



5IdrI 



Noting the expression for I given by Eq. ( 2.126 ) and the orthogonality condition of the 
given by Eq. (|2.111|) , we find the last term in Eq. (|2.164|) is symmetric in I and 51, and may 
be written as a total variation. The remaining terms of the above equation will eventually be 
combined with other terms yet to be evaluated from the surface integrals of Eq. ( |2.155| ). 

We still have one more surface integral in Eq. ( p.l55| ) to rewrite. We first note the following 
useful identities, valid up to first order in the linearized parameters: 



^1/2 ^afe 

a ' (7 



1/2 



„a6 / „a„b „ab „ \ i 



(2.165) 



and 



^k^l ^ „ „kl 



1 



1 



{kiH)p 



(2.166) 



With these two identities in hand, along with the fact that hij is transverse and traceless, 
we find we may write 



X 



Shrrhrr 5^"^ hij H 6h"hri 6hrrdrhrr H Sk^^drha 



-n. 



(2.167) 



The first five terms of the above equation will be combined with other terms we have 
previously evaluated. However, we still need to focus on the last term of Eq. (|2.167|) . If we 
bring the rij inside of the derivative and project the i indices parallel and perpendicular to nj, 
we find we may write 

- i" rijVi {Sh'^akih^^) a^^^d^x 

J ro 

J ro 

' V, [dhjka^^h^") + r-^aij5h'^akih^^] a^'^d'^x. (2.168) 
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Invoking Stokes' theorem, we note the first term on the right hand side is a two-dimensional 
divergence of a two-dimensional vector on a two-dimensional boundary, and hence vanishes. 
We may then reduce Eq. (|2.168|) to 



/ [-2r'^5hria^Phpr - n'Vi {5Kk(y''^hi,) + r-V.^^/i^Vn/i'^] a^'^d^x, (2.169) 

which is symmetric in hij and 5hij. 

Finally, we may combine many of our results. Specifically, if we combine the results of 
Eq. ( p.l64| ), the first five terms of the last integral in Eq. (|2.167|) , and the result given by 
Eq. ( |2.169D , we find the first surface integral of Eq. ( p^.l55| ) is equivalent to 



1 • • 3 ■ ■ 
-Sh^^drhij — dr{a'^-' 5hirhjr) a^^hirh 

1 



1 



ir"'jr 



5 

2r 



6hrrhrr + 6IdrI 



a 



X 



ro 



K'^drhij — dr{(J^-'hirhjr 



3 5 
--a ' 

r 2r 



a 



X 



+ 



J i [Sh'^drhij - 0dr5hij\ a^/^d^x. 



(2.170) 



The total variation will be used when we write down the final form of the variational principle, 
but we still need to rewrite the second surface integral of Eq. ( |2.17(J| ) . 

We note hij in the final surface integral of Eq. ( p. 1701 ) is described by Eq. ( |2.136|) and 
Eq. ( |2.137| ). When expressed in terms of SQim, S^' 
written as 



5R. 



tmQ 



and 6fl, the variation in hij may be 



6n 



(2.171) 



We now may substitute Eq. ( |2.136| ), Eq. ( |2.137| ) and Eq. ( |2.171| ) into the final surface integral 



of Eq. ( 2.170 ). Integrating over the boundary using Eq. ( 2.108 ) along with the orthogonality 
of the 3^^™ allows the surface integral to be written as a sum of terms each involving a single 
choice of m, and Q, namely 



/ [Sh'^drhij - h'^dr5h,j] a^l'^d^x 

J ro 



E 



(2.172) 



Paying particular attention to the first term on the right hand side, specifically the portion 



that involves 5Vt after substitution of Eq. ( p.l71|) , we note the product rH^"^^ may be written 



as fl^ times a sum of terms, each of which is a product of a function of rQ and a function of 6 
and (f). In particular, we may write 



6n 6{rn) Q 



(2.173) 
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It can be shown, with some effort, the terms proportional to SQim in Eq. ( p.l71| ) and 
proportional to iSfl in Eq. (|2.173|) do not contribute to the surface integral we are attempting 
to evaluate. For example, the term involving SQgm vanishes because of the fact its coefficient 
is proportional to the Wronskian of two dependent solutions of the same linear equation. This 
leaves us with only the S^j^ and S^^^ contributions to the final surface integral of Eq. ( |2.17UD . 

Once again using the properties given by Eq. ( |2.108| ) and Eq. and evaluating in the 

wave zone, we find the S^j^ contribution is 

8|.J--(£ + 2) (2.174) 



Likewise, using the same identities and evaluating the integral in the wave zone, we find the 
51?!^ contribution to be 

TTlmS s: TTimS \ 

_ 32K£+^£(£ + 2) 

Finally we see the fruits of our labor by combining many of the results of this section to 
re-state the first surface integral of Eq. (|2.155|) , namely 

+25 rfDaN] (fx 

= -6 I (p [—dr{cr^-' hirhjr) — -a^^hirhjr + —h„h„- + Idrl 

2 ^ 



'T-0 

r 



+ -{drh'^)drhij - -0drdrhij]a^/^d'^x 
j5\(f n-^[r{drh'^)drhij - rhijdrirdrh'^)]a^^'^d^x 



To 



where 



and 



- 8 J2 (EU^L + Elj^L). (2. 176) 

£;m>0 



, _ Kr^(£ +!)(£+ 2) 

- TTn^wn 7Vn l^^^l (2.177) 



2(£!)2(^- 1)£ 



[(£+l)!]2(£-l) 

The coefficients are so named because they are the amount of energy in a gravitational 
wave for a (£, m) and (£, — m) multipole in a spherical shell in the wave zone which is one 
wavelength thick |T^. 
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We are almost to the point of re- writing our variational principle for H2 , given by Eq. ( |2.154| ) . 
However, before we do, it is convenient to define some new quantities. In particular, we absorb 
the last surface integral of Eq. ( |2.176| ) into the definition of J to define the effective angular 
momentum, given by J^: 

167rJ^= - / 2n"$S-^/V,fe(T^/2^2^ 

(f [r{drh'^)drhij - 0dr{rdrhij)] a^/^(fx. (2.179) 

We note J'^ is defined through second order in the wave amplitudes Iim and Sim, and is in- 
dependent of the location of the boundary up to this order. In this sense, is the angular 
momentum of the source, without a contribution from the gravitational radiation. The neces- 
sity of this definition for J"^ will soon be apparent when we formulate the variational principle 
for neutron stars. 

Rather than redefine H2, we introduce the effective mass, denoted by . The effective 
mass consists of surface integrals of H2, modified by the surface integrals whose total variations 
appear in Eq. ( p.l76| ) and Eq. ( |2.159| ): 

167rMt= - / {2Dan'' - A^V^O a^/^d^x + I V^y^al'"^ d'^ x 

Jro Jro 



1 



3 5 
\ J I ^ 1r 



-|-^ (^drh^^) drhij — ^^drdrhij 



a'/^d'x 

+ - (f {S'Si/r - S'drSi) o^l^d^x. (2.180) 

2 /ro 



We note is defined through second order in the wave amplitudes J^m and Sum-, and does 
not depend on the location of the boundary up to this order. In this sense, is the mass of 
the source, without a contribution from the gravitational radiation. We may now complete our 
description of a variational principle for irrotational binary neutron stars, in which plays a 
central role. 



2.6 Formulation of the Variational Principle for 
Irrotational Binary Neutron Stars 

We may now combine all of our results from the previous sections and present the variational 
principle for irrotational binary neutron stars. We first formulate a variational principle which 
satisfies only the fluid equations for irrotational motion described in §( |2.4| ), will incorporate 
the variational principle for the matter into the variational principle for Einstein's equations 
described in §( 2.5.4 ), and will then finish with discussions of the properties of the variational 
principle, as well as methods of implementation. 

We begin by noting a variational principle for the fluid fl^ may be described by 



mat 



X, 



(2.181) 



mat 
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where pn and ja are given by Eq. ( p.68| ) and Eq. ( |2.69| ), respectively. In terms of the fluid 
variables, the integrand may be written as 

NpH - N'^Ja = ^[C'- (N'^D^i^f] + ^ (Da^) Dy + ^{P-P)- (2.182) 



For arbitrary variations of A^, N"', '-jab-, Po-, and C the change in -ffmat is 



5NpH - SN'^Ja - Is^abS'"' 

-5^^^ + 5 (po/h) 



I ^s^^9n..tcrlttd'x (2.183) 



where S"^, ^, A, and ^a^nat are described by Eq. pTq ), Eq. { ^TE^ , Eq. and Eq. {^^ET^ 



M. 



B 



respectively. The rest mass of the star is denoted as Mb, and is defined as 

/ PonaU''^'/'d'x= [ ^{C + N^Da^)^'/'d'x. (2.184) 

J rant J mat ^ * 

We note if the fluid equations are satisfied, then Hmat evaluates to 

H^^t = CMb - I NjTf'/^d^x. (2.185) 

J mat 

The variational principle for the fluid equations, as well as the Einstein equations, is based 
on the following definition of M^, given as 

IGnM^ = - j - levrpj^) + 2N''{N'a + Mja)]-1^''^ d'^x 

- I N{2Dan'' - NV^,nl)a'/^d^x + I V^Ti^^al'^d'^x 

Jro Jtq 

~ 2 J l^'^ricr'''^ hirhjr) a^^ hi^hjr + —h„.h„. + Idrl 

+ '^2{drh'^)drhij - Ul'^drdrKj\a^/^d^X 

+ - (f {S'SJr - S'drSi)a^'^d'^x. (2.186) 
Under arbitrary variations of the geometry as well as the fluid variables, we find 
IQ'k5M^=- j [5N {U - IQ-kph) 7^^^ + ^SN^ {Ma + Mja) 7^^^ 

^ n 
+87r6 {po/h) iV^7^/2] d^x 

+ i -r-^^^^9mat4matC^^a; 



9mat ^ 



- 8 {EU<m + EL^^i 

f;m>0 

+ IGirnSJ^ + IQ-kC5Mb. (2.187) 
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We can see from Eq. ( |2.187| ) how we may apply a variational principle: for fixed values of 
the effective angular momentum J^, the baryonic rest mass Mb, and the radiation phases ^im, 
the effective mass is an extremum under infinitesimal variations of the matter and geometry 
precisely when the matter and geometry are solutions to the quasi-stationary Einstein equations 
and the equations for irrotational fluid flow. 

The variational principle also yields an accurate estimate of the value of Assume a 
geometry and matter distribution which is an approximate solution of the quasi-stationary 
Einstein equations, and differs from an exact solution by 0{6). If so, then the difference 
between ikf^ for the exact solution and for the approximate solution is 0(5^), as long as 
the parameters J\ Mb, and the phases i)im are the same for the two geometries. 

The variational principle also allows one to calculate values for the parameters Q, C, and 
the radiation coefficients Eim in the following fashion. Assume a geometry and matter distri- 
bution differs from an exact solution by 0{6), with parameters J\ Mb, and phases 'dim- This 
configuration yields some value of the effective mass Now, alter the geometry by changing 
the value of the effective angular momentum by some amount AJ\ holding all other quanti- 
ties fixed. This change in the effective angular momentum will correspond to a change in the 
effective mass with error of 0{6^) via 

AM^ = fiAjf + O {6^) . (2.188) 

), one can easily see estimates of fl, accurate to order 0{S^), may be determined 
via 



From Eq. (2.188 



n = AMT /AJ^ + O (5^) . (2.189) 

In a similar fashion, estimates of C and of the energies may also be determined, accurate 
to 0{S'^). This procedure leads us to a technical definition of the constant C: it is the derivative 
of the effective mass with respect to the rest mass of the neutron star holding all other physical 
parameters fixed. A more intuitive explanation of the role of C may be seen from Eq. (|2.187|) . 
Imagine injecting a single baryon of mass tub into our system, holding the angular momentum 
fixed — Eq. ( |2.187|) indicates Cm^ is the mass increase per baryon of the system for fixed angular 



momentum. This is sometimes referred to as the relativistic chemical potential or the injection 
energy |]10 



2.7 Discussion 

In closing, we point out some of the highlights of our analysis of binary neutron stars undergoing 
irrotational motion. The expressions for the effective mass M^, given by Eq. ( 2.186|) , and the 



effective angular momentum J\ given by Eq. ( |2.179| ), are of great interest. As far as quantities 



such as mass or angular momentum can be defined in the framework of General Relativity, 
they can be viewed as the mass and angular momentum due to the sources alone, without a 
contribution from the gravitational radiation present in the system. We assert these quantities 
are not a measure of the energy or the angular momentum of the radiation because and 
are independent of the location of the boundary in which they are evaluated. 

The expression for Af^ not only yields a measure of the mass of the system, but also generates 
a variational principle for our neutron stars. We found, as shown in Eq. ( p.l87| ), an extremum in 
M^ corresponds to a solution of the quasi-stationary Einstein equations and the fluid equations 



32 



CHAPTER 2. THE QUASI-EQUILIBRIUM APPROACH 



for irrotational motion for fixed values of the effective angular momentum J^, the baryonic 
mass of the stars Mb, and the phases of the gravitational radiation {}im- Hence, provides 
a means of generating realistic solutions which satisfy the quasi-stationary Einstein equations 
and the irrotational fluid equations. 

We also found the variational principle allows a means for determining accurate estimates of 
the orbital angular frequency fl, the gravitational wave energies Eim, as well as the relativistic 
chemical potential parameter C, which are of interest to those investigating gravitational wave 
signals. Knowledge of Q can be used to yield estimates of the time evolution of the angular 
frequency, perhaps to a time very late in the evolution of the system. Knowledge of the 
relativistic chemical potential may be used to extract useful information about the structure 
and state of matter of neutron stars. 

The variational principle for is justification for the numerical techniques employed by 
some investigators [|15|, |16|, ^l|-|2^ . In past numerical studies, it was not clear what mathematical 
framework was used when investigators formulated their variational principles. Now, with this 
work, investigators are given a clear road map to approach numerical studies — specifically, 
which quantities should be held fixed as they generate their sequence of solutions to the quasi- 
stationary Einstein equations and the fiuid equations for irrotational motion. For systems in 
which gravitational radiation is completely "shut off" , it is clear the effective angular momentum 
and the baryonic mass of the system should be held fixed in order to determine a realistic 
solution to the equations of interest. However, if investigators choose to include the effects of 
radiation in their analysis, they must also ensure the phases of the radiation are fixed as they 
generate their solution. 

The variational principle for acts as a proving ground for those numerical studies in 
which the conformally fiat conjecture is used |[15|, p!6|, |2T|, p2|, p4| . The conformally fiat conjecture 
assumes the geometry is conformally fiat and that the effects of gravitational radiation may be 
neglected. In principle, one can employ the variational principle for M^, using the same param- 
eters as the conformally flat geometries used by other investigators. This will allow the angular 
frequencies and energies of the radiation to be compared to those derived from the conformally 
flat studies. If a large variation in the comparison of these quantities is observed, then it would 
indicate the conformally flat metric, and their assertions that gravitational radiation effects can 
be neglected, are erroneous. However, if little variation is observed in these quantities, it would 
indicate the conformally flat studies are well-justifled in their assumptions. 



Chapter 3 

The Initial Value Problem: 

A Variational Principle for Binary 

Black Holes 



One of the remaining unresolved issues in numerical relativity is known as the initial value 
problem. Specifically, how does one determine physically realistic initial data for binary black 
hole systems? It is this initial data which in turn is evolved in time via the Einstein equations, 
so if one wishes to generate reliable predictions about the location and angular frequency of 
the innermost stable circular orbit, then it is vital that the initial data be physically realistic. 

The vacuum constraint equations are the cornerstone of the initial value problem. Recall 
from Eq. ( p.32|) the Hamiltonian constraint is 



i? + /C;/C,^-/C,5/C'^'' = 0, (3.1) 

where JCat is the extrinsic curvature associated with the three-metric jab, and R is the associated 
Ricci scalar. Also recall from Eq. ( p.34|) the momentum constraint is 



D'' {JCab - /C;7a6) = 0, (3.2) 

where D"^ is the covariant derivative compatible with the three- metric jab- These constraint 
equations must be satisfied on every spacelike hypersurface, but do not determine the dynamics 
of the geometry. 

A solution to the initial value problem consists of a three-metric jab and an extrinsic cur- 
vature ]Cab which satisfy Eqs. ( p.l|) and ( |3.2| ). However, one notes the equations are coupled, 
nonlinear equations — this greatly complicates any efforts to generate either analytic or numeri- 
cal solutions to the initial value equations. To simplify the analysis, we assume the three-metric 
Jab is conformally flat. This introduces the conformal factor ip via the relationship 

7ab = ip^gab, (3.3) 

where gab is the fiat three-metric. Under the conformal flatness assumption, the extrinsic 
curvature transforms as well according to 

ICab=^-'Kab. (3.4) 

We call Kab the conformal extrinsic curvature. 
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In addition to the conformally flat assumption, we choose the maximal slicing gauge ||25|| , 
which corresponds to the conformal extrinsic curvature being trace-free: 

K: = 0. (3.5) 

By assuming a conformally flat three-metric, as well as choosing the maximal slicing gauge, 
we effectively decouple the constraint equations, making them more amenable to study. In 
particular, the Hamiltonian constraint equation becomes 

V'^ + Ix^bK^'^-' = 0, (3.6) 

o 

where the operator is the flat space Laplacian. Likewise, the momentum constraint simplifies 
to 

VbK"'' = 0. (3.7) 

Hence, determination of Kab and ip via Eq. ( |3.6| ) and Eq. ( |3.7| ) completely specify the geometry 
on an initial space-like hypersurface. In practice, one would take this initial data and evolve it 
via the dynamical Einstein equations. 

However, a question arises: how does one determine physically realistic initial data — data 
which is truly representative of binary black holes in circular orbits? The answer to this question 
has a long and interesting history — one which we briefly recount. 

The first attempt at realistic initial data is the result of work by Misner and Wheeler 
p^ , 27[] . Misner studied the situation in which two masses were initially at rest, and found that 



the topology was analogous to that of a Wheeler wormhole — a single "sheet" of spacetime in 
which two separate locations on the sheet are connected by a "throat". It was later discov- 
ered that the Misner data set, when expressed in isotropic coordinates, could be viewed as a 
topology consisting of two sheets ||2^. Each sheet corresponds to a separate asymptotically flat 



region, where the two sheets are connected by two "throats". In 1963 Brill and Lindquist 
generated an initial data set which corresponded to a three-sheeted geometry, each sheet again 
corresponding to a separate asymptotically flat region. 

During the intervening years, many have investigated the properties of the two- and three- 



sheeted geometries. For instance, Bowen and York p5| studied black holes using the two-sheeted 
geometry. However, the two-sheeted analysis introduces several complications, most notably 
the need for boundary conditions not only at spatial infinity of the upper sheet, but also at the 
locations of the throats of the holes. These conditions at the throats are typically based on how 
the conformal factor ijj and the extrinsic curvature Kab behave under a coordinate inversion 
through the throats. Despite the added complications associated with the Misner data set, it 
has been widely used by a number of investigators to study black hole collisions P5|PU|-P3[|. 



In 1997 Brandt and Briigmann |^ proposed a method which would reduce the number 
of complications introduced by the Misner data set. They choose a topology in accordance 
with the Brill data, and proposed a method to compactify the lower sheets asymptotically 
flat regions. This compactification effectively simplifies the domain of integration in which the 
constraint equations must be solved. Simply stated, the compactification of an asymptotically 
flat region to a single point in R'^ eliminates the need to impose boundary conditions at the 
throat and eliminates the need to excise domains of integration. 

Solutions to the momentum constraint, Eq. ( p.7|) , are well-known for single black holes with 
arbitrary linear and spin angular momentum [^. The trace- free extrinsic curvature which 
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satisfies the momentum constraint is of tlie form 

3 

2^ 



+ ^ [e'^'^'Scn^n' + e^'^'S^n^n^] , (3.8) 

wliere P"^ and 5*" are tlie linear momentum and spin angular momentum of the black hole 
measured on the upper sheet of the geometry. Because the conformal metric is flat, we may use 
normal Cartesian coordinates, where n"" is a radial normal vector of the form n"' = x°'/r, where 
= x"^ + y"^ + z"^ . For a geometry which consists of black holes, the extrinsic curvature is 
given by 

N 



K^' = J2kU)^ (3.9) 



1=1 



with each term in the sum having its own coordinate origin. Note for black holes on the 
upper sheet, there are a total of + 1 sheets in the geometry, each with it's own separate 
asymptotically fiat region. 

Brandt and Briigmann then proceed to solve the Hamiltonian constraint, given by Eq. ( p.6| ), 
rewriting the conformal factor ip as 



^l: = - + U, (3.10) 
a 



where 1/a is given via 



-t^- (3.11) 

where Mj is the mass of the i*^ hole, and r(j) is the coordinate location of the corresponding 
hole. 

With these identifications, the Hamiltonian constraint becomes a nonlinear elliptic equation 
for U: 

V^U + (3 {1 + aUy^ = 0, (3.12) 
where f3 is related to the conformal extrinsic curvature i^"* via 

/3 = 1«7^«X6. (3.13) 

o 

Recall we demand asymptotic flatness on the upper sheet, which determines the boundary 
condition on U at spatial infinity. This Robin boundary condition may be stated as 

^ (3.14) 

or r 

which may be interpreted as demanding that U consists primarily of a monopole term as one 
recedes far from the black holes. 
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Hence, Eq. ( p.8| ) which satisfies the momentum constraint, coupled to Eq. ( p.l2| ) and 



Eq. (|3.14|) complete the mathematical description of the initial value problem. It is impor- 
tant to reiterate Eq. ( |3.12| ) may be "easily" solved on without the need of any boundary 
conditions at the throats of the punctures. Discussion of the method of solution and numerical 
results of Eq. ( ^.12| ) will be covered in the following chapters. 

As motivation, let us describe the work of Baumgarte and his investigations into circular 
orbits of binary black hole systems. Baumgarte also chooses the three-sheeted topology to 
describe his binary system, and also adopts the "puncture" method of Brandt and Briigmann. 
Baumgarte proceeds to formulate a minimization principle in the following fashion, which is in 
line with the method of Cook |pO|| . 

For a system of equal mass black holes, and for a particular choice of angular momentum J 
for the system, Baumgarte demands the momenta P of the punctures are equal in magnitude 
and opposite in direction, and that the total separation distance is given by the quantity D. 
For circular orbits, he also demands P ■ D = 0. The momenta P are determined by the choice 
of the angular momentum J and the separation distance D via J = PD. 

Baumgarte then identifies the irreducible mass of the individual punctures, approximately 
given by Christodolou's formula 



A 



1/2 



M^M,„={ — ] , (3.15) 



where A is the area of the black hole's apparent horizon |35|. He then goes on to define an 



effective potential, given by the binding energy of the system: 

^b = ^ADM-2M, (3.16) 



where -Eadm is the ADM mass of the system (see §( [4.4.4| ) for a discussion of the ADM mass). 



Baumgarte then varies the separation distance between the black holes, and looks for minima in 
the binding energy for fixed values of angular momentum J and for fixed values of the apparent 
horizon areas A. The minimum in the binding energy for some value of the coordinate separation 
distance D on the initial slice is the necessary condition for circular orbits, given by 

= 0. (3.17) 

A, J 



dD 

Likewise, the orbit's angular frequency Vt may be determined from 

dE^ 



dJ 



(3.18) 

A 



A Newtonian example of the above two equations may help to solidify this concept. Assume 
we are studying a system of two equal mass point particles, each of mass M. The system has a 
total angular momentum J and the point particles are separated by a distance D. The energy 
of the system may be written as 

Application of the condition for circular orbits, Eq. ( |3.17|) , to the energy given in Eq. (|3.19|) 
yields a relationship between the angular momentum J, the mass M, and the separation dis- 
tance D: 

2 P 
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Hence, for specified values of J and M, one may determine the location of the circular 
Newtonian orbit. We may also generate an expression for the orbital angular frequency fi, as 
determined by Eq. ( p.l8| ), which yields 



fi—. (3.21) 

We may combine the results of Eq. (|3.2CI| ) and Eq. (|3.21|) to yield the familiar form of 
Kepler's third law of planetary motion: 

= (3-22) 

In this fashion, Baumgarte proceeds to generate a sequence of circular orbits, terminating 
at the innermost stable circular orbit. One of his main conclusions is the agreement between his 
results (which are based on Brill data) and those of Cook (which are based on Misner data). He 
concludes the underlying topology is not a strong determining factor of the resulting physics. 

Despite all of the simplifications introduced by the three sheeted topology and the puncture 
method of Brandt and Briigmann, Baumgarte's analysis is complicated by holding the apparent 
horizon areas fixed as he generates his sequence. The algorithm Baumgarte et al. employ is de- 



scribed in |^6[ , in which the location of the apparent horizon is expressed in terms of symmetric 
trace-free tensors. The coefficients of these tensors are varied until the equation describing the 
expansion of null geodesies drops below some specified tolerance level. The horizon-finding code 
appears to reproduce the horizons associated with the Schwarzschild geometry to arbitrarily 
high degrees of accuracy, and the authors indicate varying degrees of success with situations in 
which the horizons are only slightly distorted. 

In the heuristic extremum principle used by Baumgarte there appears no specific reason 
for holding the areas of the apparent horizons fixed while searching for the extremum in the 



binding energy. This method could be legitimate for the two-sheeted Misner data of Cook ||3^ , 
but our analysis indicates the apparent horizon area need not be held fixed for the three-sheeted 
Brill data. 



As was demonstrated by Blackburn and Detweiler a variational principle for a binary 
black hole system with the Brill topology has the form 

SEaum = -2N6m + CIS J, (3.23) 

assuming the quasi-stationary Einstein equations are satisfied, and the system does not contain 
any radiation. In the above equation, -Eadm is the ADM mass of the system, as measured on 
the upper sheet, N is the ratio of the lapse functions on the lower sheets to that of the upper 
sheet, m is the "bare" mass of the hole as measured on a lower sheet, fl is the angular frequency 
of the binary system, and J is the angular momentum of the binary system. The appearance of 
the ratio of the lapse N may be somewhat surprising, but the quasi-equilibrium approximation 
(and the existence of the approximate Killing vector d/dt + VLd/dcf)) eliminate the arbitrary 
nature of the lapse. The variational principle of Blackburn and Detweiler demonstrates one 
should fix the values of the bare mass and the angular momentum of the black holes if they 
wish to determine an extremum in the ADM mass. More importantly, the extremum in the 
ADM mass indicates the geometry with angular momentum J and bare mass m are solutions 
to the quasi-equilibrium Einstein equations. This insight is the foundation of our application 
of a variational principle for the ADM mass, employing the puncture method of Brandt and 
Briigmann. 
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One question that arises is the following: given a particular configuration on the upper sheet 
of our geometry, how does one determine the bare masses on the lower sheets, and vice-versa? 
We first recall the metric may be written as 

ds^ = ^lj\dP + r^dn^), (3.24) 

where once again is the conformal factor, and dfl represents an element of the solid angle. 
Also recall there exists an isometry given by r = M^/4r, which leaves invariant the coordinate 
sphere at r = M/2 I^S], and maps the entire exterior of the asymptotically fiat region into the 
interior of that invariant sphere. Note that if we were to express the Schwarzschild metric in 
these isotropic coordinates, the conformal factor would take the form [|1^ 



M 

^ = 1 + — , 3.25 
2r 

where M is the mass associated with the Schwarzschild solution. Hence, we should expect 
a conformal factor in the coordinate inverted space to have a similar form, with a different 
mass parameter. Specifically, we perform the coordinate inversion and attempt to write the 
coordinate inverted conformal factor as 

i; = l + - (3.26) 
Zr 

where m is the bare mass associated with that particular asymptotically fiat region. We begin 
our coordinate inversion by substituting the expression given above for r into the metric given 
by Eq. (|3.24|). We note we may write the transformed metric as 



ds^ = ^\dr^ +f^dn^), (3.27) 

where 

- M , , 

V' = ^-. (3.28) 



Substituting the definition of ip for equal mass punctures, given by Eq. (|3.1Q|) , into Eq. ( p. 27]) , 
we find ip takes the form 

J, = l^l(M.U. + Mgl), (3,29) 



2r V 2D ^ 

where Mj is the "Newtonian" mass associated with the i^^ puncture as measured on the upper 
sheet, Ui is the value of U at the i*^ puncture, and D is the separation distance between the 
punctures on the upper sheet. Comparison of Eq. ( p.29|) to Eq. ( p.26|) allows us to identify the 



bare mass associated with each puncture in each puncture's asymptotically fiat region, denoted 
as mj! 

= M, (u, + , (3.30) 

where i ^ j- Blackburn and Detweiler's variational principle given by Eq. (|3.23|) tells us the 
bare mass mj should be held fixed as one generates a sequence for circular orbits. 



39 



The application of the variational principle follows: Specify the value of the angular mo- 
mentum J and the "bare" masses mi and m2- These quantities are to be held fixed during the 
analysis. Then, initialize the puncture separation distance which in turn determines the hole 
linear momentum P via J = PD. Recall the linear momenta and hole separation specifies the 
conformal extrinsic curvature, given by Eq. ( |3.8D . For some initial guess of the "Newtonian" 
masses Mi and M2, solve the Hamiltonian constraint equation given by Eq. ( |3.12| ) subject to 
the Robin boundary condition given by Eq. (|3.13|) . Once U is known, use it to determine new 
values for the Newtonian masses, as determined by Eq. ( p.30| ). Iterate the above procedure by 
re-solving the Hamiltonian constraint equation for the new Newtonian masses, and re-calculate 
the Newtonian masses. When the Newtonian masses have converged to within some prede- 
termined tolerance, then we may assume we have properly solved the Hamiltonian constraint 
subject to fixed values of the angular momentum J and the bare masses given by m. At this 



point, calculate the ADM mass for the system, as described in § (|4.4.4|) . Then, decrement the 
hole separation distance D, holding the angular momentum J and the bare masses m fixed. 
Repeat this procedure for a sequence of hole separations, calculating the ADM mass at each 
separation distance after reasonable convergence in the Newtonian masses has been obtained. 

Once the ADM mass for the system has been calculated for a range of separation distances 
D, all the while holding the angular momentum J and the bare masses m fixed, we may 
determine the location of circular orbits via 



dE 



ADM 



dD 



= 0. (3.31) 

rn,J 



Note the similarities between Eq. (|3.31| ) and Eq. ( p. 171) . Our variational principle also allows 
us to calculate the orbital angular frequency Q, given by 



dJ 



(3.32) 



Again, note the similarities between Eq. ( |3.32| ) and Eq. (|3.18|) . 



The following chapter discusses the numerical methods employed to implement the vari- 
ational principle, in which we solve the Hamiltonian constraint, given by Eq. ( 3.12|) , subject 



to the Robin boundary condition Eq. ( p. 131 ). We ultimately generate a sequence of constant 



angular momentum curves, determine the minima in the curves which correspond to circular 
orbits, and evaluate the orbital angular frequency in addition to other physically interesting 
quantities. 
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Chapter 4 
Numerical Methods 



This chapter is dedicated to the development of the numerical methods employed to solve the 
Hamiltonian constraint equation for the "puncture" method in the previous chapter. We will 
begin by introducing the main ideas of linear multigrid techniques, building up to nonlinear 
multigrid techniques, and finally nonlinear adaptive multigrid techniques. We will close the 
chapter with brief discussions on methods of determining operators for numerical methods, as 
well as some tests of the computer code which we developed. 

Multigrid methods are relatively new to the scene of numerical techniques, but their power 
and speed are widely recognized [^-41]. The development of linear multigrid techniques will 



be presented via a toy problem, specifically determining an efficient and accurate way in which 
to solve Poisson-like equations with particular boundary conditions. Once the linear method 
is developed, we use it as a launching pad into the realms of nonlinear multigrid and nonlinear 
adaptive multigrid. 



4.1 Linear Multigrid 

First, we indicate the notation used throughout the entire discussion. The problem at hand is 
the determination of the solution to the partial differential equation: 

A^'u^' = (4.1) 

where is some linear difference operator, is the exact solution to the equation, and is 
a source term. The superscript h denotes that the operators and functions exist on a grid of 
spacing h. 

It is possible, in the numerical sense, to solve the above equation exactly. This may be done 
via a direct solver, which effectively diagonalizes a matrix representing a system of equations 
for the numerical grid. However, these methods can be slow in arriving at a solution, especially 
if a large number of grid points are involved ||41|| . 



In an effort to determine a more speedy method, we introduce an important quantity. A 
measure of how well our approximate solution is doing to solve the equation is found in the 
residual ||38|, defined by 



r 



where is the approximate solution. Obviously, if the residual is equal to zero, then we are 
assured is an exact solution to Eq. (fl.l]). 
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Figure 4.1: A cartoon representation of a two-dimensional red-black numerical grid. 



In theory, one selects a numerical method (presumably iterative) in which to solve Eq. (O). 
After several iterations, calculate the residual r'^. If the residual is "small" (where "small" means 
less than some tolerance level), then you have a reasonable approximate solution to Eq. ( [4.1|) . 
If the residual is not "small", then simply iterate your numerical method some more and re- 
calculate the residual. This process is continued until one is satisfied with the "smallness" of 
the residual. 

One such practical application of this type of numerical method is known as red-black Gauss- 
Seidel relaxation, or simply red-black relaxation. In this scheme, one imagines a numerical 



grid to consist of a checkerboard of alternating colors (hence the name red-black) The 
significance of the alternating colors is when a particular grid point, say a "red" grid point, is 
being updated by the relaxation scheme, its value only depends on the black grid points in the 
vicinity of the updated red grid point. The advantage of this is the red-black scheme allows 
one to update all of the red points first, and then all of the black points. 

Despite the fact that red-black relaxation yields a speedy convergence rate in comparison to 
other relaxation schemes, it does have a major drawback which is related to the various Fourier 



modes which may exist in an approximate solution to Eq. ( [4.1|) . As indicated in Fig. [4.2| , which 
depicts various Fourier modes of different mode numbers, for low values of the wavenumber 
k the functions are relatively smooth across the grid. However, as soon as the wave number 
approaches a value comparable to half the total number of grid points, the function begins to 
look highly oscillatory. 

Figure [4.3| shows the results of a simple one dimensional red-black relaxation scheme for 
Laplace's equation. The initial solution input into the relaxation scheme consists of a super- 
position of functions with wave numbers k = 3 and k = 16, respectively. Clearly, after twenty 
iterations of the relaxation scheme, the k = 16 mode has been completely suppressed, leaving 
only the k = 3 mode. This indicates red-black relaxation is exceedingly efficient at relaxing 
away high frequency modes, but apparently has difficulty suppressing low frequency modes. 

An even more dramatic demonstration of this effect is indicated in Fig. [4.4| , in which three 
separate initial guesses to Laplace's equation were input into the red-black relaxation code, 
with wave numbers of k = 1, k = 3, and k = 9 respectively. The horizontal axis is the 
number of iterations, and the vertical axis is an rms measure of the residual (called the Error 
on this figure). As indicated in the figure, the function with the highest frequency (the k = 9 
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Grid Point 

Figure 4.3: Initial solution and relaxed solution for the one-dimensional Laplace equation. 



4.1. LINEAR MULTIGRID 



45 




15 20 25 30 35 40 

Iteration Number 



45 50 



Figure 4.4: Error of various Fourier modes as a function of iteration number. 



mode) relaxes to a solution after approximately 30 iterations. However, the convergence rate 
for the k = 3 mode appears to be much slower, and the k = 1 mode's rate of convergence is 
horrendously slow. In other tests, even 1000 iterations had little effect on the convergence of 
the k = 1 mode. It is important to note the lack of suppression of low frequency modes is not 
inherent to the red-black scheme, but is manifest in all relaxation schemes PB|,^. 

This presents a problem: if all relaxation schemes fail to suppress low frequency noise 
in a reasonable number of iterations, then how can one hope to solve Eq. (|4.1|) quickly and 
efficiently? The answer lies in the following realization: low frequency modes on a grid of 
spacing h look like high frequency modes on a grid of spacing 2h [^^. Stated another way, 
low frequency modes on a fine grid look like high frequency modes on a coarse grid. If one could 
somehow transfer information about the approximate solution to a coarser grid, and then 
apply the red-black relaxation scheme on that coarser grid, the low frequency components of 
v'^ on the fine grid will be converted into high frequency components on the coarse grid, and 
will in turn be suppressed by the relaxation scheme. However, we must first discuss a method 
to transfer, or restrict, information from a fine grid to a coarse grid. 

As an illustrative example, assume we wish to restrict the value of a function at a 
particular grid point i, denoted as v'j^, to a coarser grid level. A simple one-dimensional example 
of a restriction scheme is known as full- weighting restriction |3^. This is a method in which 
the values from grid point v^ as well as the values at grid points f and v^_^_l help to determine 
the restricted value of the function on the coarser level, denoted by v"^^. Short hand notation 
for the restriction operator is I^^, and can be seen as operating on the fine grid function v'^ in 
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Figure 4.5: Restriction of the k = 6 Fourier mode from fine to coarse grid levels. 



the following way: 

In general, it is somewhat arbitrary how one chooses the weighting associated with the value 
of the function at grid points i,i±l , etc., but any choice is subject to the constraint that if 
the value of v'^ is equal to one everywhere, then the value of v"^^ should also be equal to one 



everywhere. For example, a legitimate choice p8[ of a one- dimensional restriction scheme is 



where an illegitimate choice of a one- dimensional restriction scheme would be 



An implementation of the above (correct) full- weighting restriction is shown in Fig. [4.5| for a 
k = Q Fourier mode. One will note this mode is already of a relatively high frequency on the fine 
grid consisting of 17 grid points. However, when restricted to the coarse grid consisting of 9 grid 
points, the restricted function consists of even higher frequency modes. This is to our benefit, 
because we know that our red-black relaxation scheme will have no difficulty whatsoever in 
suppressing these high frequency modes on the coarse grid. 
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It is important to briefly note the following question: If one knows the form of the fine 
grid operator A^, then is it proper to use the same operator on a coarse grid for subsequent 
relaxation? The answer, it would appear, is a resounding "it depends". In our investigations 
of systems involving linear operators, there were no ill effects when using the same operator 
on all grid levels, fine or coarse. We will find when dealing with nonlinear adaptive multigrid 
our coarse grid operator will be determined by what is called the Galerkin condition |38|,|39[|. 



However, we will defer any further discussion of the Galerkin condition at this point, as it has 
little bearing on our development of multigrid methods for linear operators. 

Let us review where we currently stand. We know relaxation on a fine grid will suppress 
the high frequency modes of a function, but does an unsatisfactory job of suppressing the low 
frequency modes on that level. We now know how to restrict information on that fine level to a 
coarse level. This is useful because we know low frequency modes on a fine level look like high 
frequency modes on a coarse level. This will allow us to suppress that low frequency mode by 
applying our relaxation scheme once again to the restricted function on the coarse level. There 
is one last piece of the puzzle remaining: transferring information from the coarse level back to 
the fine level. 

Once again, let us use an illustrative example as a demonstration. Assume we wish to 
transfer, or interpolate, the value of a function v^^ at a particular grid point i, denoted as vf^, 
back to the fine grid level. Short hand notation for the interpolation operator is 12^, and can 
be seen as operating on the coarse grid function v"^^ in the following way: 

Unlike the restriction operator J^'*, we are constrained as to what form the interpolation 
operator takes. This condition may be expressed as 

I2H = c{llY, (4.6) 



where c is some constant In words, the interpolation operator is the transpose of the re- 
striction operator, multiplied by some real- valued constant. A simple one dimensional example 
of an interpolation operator, which is consistent with Eq. ( [4.4| ), is known as linear interpolation. 
Simply stated, fine grid points which correspond to coarse grid points take on the value of the 
coarse grid point. Intermediate fine grid points are simply an average of the neighboring fine 
grid points. Stated algorithmically, 

(4.7) 

where i denotes the coarse grid number, and 

= I + v^\] , (4.8) 

which is applied to the intermediate fine grid points. 

Figure |4.6| is a specific example of the one dimensional linear interpolation scheme, as ap- 
plied to a coarse grid function consisting of a superposition of = 3 and k = 6 Fourier modes. 
The figure shows the information which is represented on the coarse grid is transferred to the 
fine grid with little or no change — i.e., the coarse grid function is accurately represented by the 
interpolated function. This is important because we have made great gains in being able to 
suppress low frequency modes through the restriction and eventual relaxation on coarse grid 
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;ure 4.6: Interpolation of the k = 3 and k = 6 Fourier modes from coarser to finer grid levels. 
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levels. It would be an unfortunate circumstance if we were to lose a large portion of the relaxed 
coarse grid function on application of the interpolation operator. 

We now have all the foundations of multigrid laid in place. Now we simply need to deter- 
mine a prescription for applying these tools to form the multigrid method for linear operators. 
First, we recall the equation describing the system we would like to solve, Eq. ([4. 11), and also 
the equation defining the residual of the system, Eq. ([4.2|): 



= (4.9) 
r'^ = /^-AV. (4.10) 

Recall is a linear differential operator, is the exact solution to the equation, is the 
source for the differential equation, is the residual, and v'^ is an approximate solution to the 
differential equation. We may substitute Eq. (|]l|) for into Eq. (|]2D to yield 



r'^ = AV-v4V, (4.11) 
and because A^ is a linear operator, we may rearrange Eq. ( |4.11| ) into the following form: 

A'' {u'' - v^') = (4.12) 
Defining the error [^] of our solution as 

e^' = u^'-v'', (4.13) 



we may substitute this definition into Eq. ( 4.12 ) to yield what is known as the residual equation 
given by 

A'^e'' = r^. (4.14) 

The residual equation indicates that the error satisfies the same equation as the unknown 
solution u!^ when the source is replaced by the residual . This is a very powerful statement 
and indicates a rudimentary method to improve our approximate solution to Eq. ( [4.1|) : 
Assuming some approximate solution has been found by some means, calculate the residual 
. Now, solve Eq. ( |4.14| ) for the error, and update the approximate solution by using the 
definition of the error: 

u^ = v^^e^. (4.15) 

With this rudimentary idea in mind, we now develop a multigrid algorithm for linear oper- 
ators known "V cycle" pH]. 

Assume you wish to solve a linear partial differential equation of the form of Eq. ( |4.1| ) on a 
grid of dimension d which consists of n grid points on a side. Assume the form of the operator 
A^ is known, and the source is known as well. The algorithm for a multigrid V cycle is as 
follows: 

• Given an initial guess on the finest grid, perform several iterations of your favorite 
relaxation scheme to determine an updated approximate solution . 

• Calculate the residual due to this approximate solution using Eq. 



Restrict the residual from level h to level 2/i via r^^ = I. 



r 
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• Relax Eq. ( |4.14| ) on level 2h, determining the error e"^^ for that level. 

• Calculate the new residual on level 2h due to the error e"^^, and restrict this new residual 
to the next coarser level, level Ah. 

• Relax Eq. ( |4. 14| ) on level Ah, determining the error e^'* for that level. 
This process continues from finer to coarser level... 



On the coarsest level, denoted as Nh, either solve Eq. ( [4. 14| ) for e'^^ exactly or relax until 
the resulting residual is sufficiently small. 

Interpolate the coarse grid error e^'^ to the next finer level and update the fine level 
correction via e^^"-^)'* = e^^"^)'^ + I^^^^^'^e^'^. Relax a few times to suppress any spurious 
high frequency modes. 

This process continues from coarser to finer level... 



Interpolate the coarse grid error e^^ to the finest level and update the initial approximate 



solution v'^ via v'^ = v'^ + ll}y,e'^'^. 



• Calculate the residual on the finest level due to this updated solution. If the residual 
is below an acceptable level, then v'^ is the numerical solution to Eq. ([4.1|) . Otherwise, 
the newly updated becomes the starting point for a new V cycle, in which one would 
simply follow the same procedure starting at the top of this list. 

As a test of this basic V cycle process, a program was written in C++ to solve a generalized 
Poisson equation in one dimension. We chose to test the code by attempting to solve Laplace's 
equation on a one dimensional grid consisting of 17 grid points, using an initial solution con- 
sisting of Fourier modes with k = 1 and k = 10. The results of running the code through a 



single V cycle are shown in Fig. 4.7. It would appear that even after a single V cycle, the initial 



solution settles down to the desired solution {u'^ = 0). On further inspection of the updated 



solution, as shown in Fig. [4.8| , we can see that the error in the updated solution is on the order 
of 10"^"^. As one would expect, this error quickly approaches machine accuracy as one iterates 
through more V cycles. It is also important to note that for the one dimensional test code, a 
single V cycle is completed in a mere fraction of a second — what takes multigrid a mere blink 
of an eye takes traditional relaxation techniques minutes, if not hours, to accomplish. 

The generalized algorithm for the linear multigrid V cycle was extended to two and three 
dimensions, with great success. Tests were run on the two and three dimensional codes for 
Laplace and Poisson equations; most notable were test codes written to solve Poisson's equation 
for a uniform density sphere and a uniform density thin shell. We found for a three-dimensional 
grid with n = 33 grid points on a side, eight complete V cycles was more than sufficient to 
reduce the residual to the level of machine accuracy, and the resulting numerical solutions 
conformed to analytic solutions to well within 1 per cent. 

With the foundations of linear multigrid in hand, we are now able to extend our treatment 
to the regime of nonlinear partial differential equations. We will find much of the ideas and 
analysis are parallel to linear multigrid, with a few subtle differences. 
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Figure 4.7: The initial guess and subsequent solution to the one-dimensional Laplace equation 
after one multigrid V cycle. 




Figure 4.8: Closer inspection of the solution to the one-dimensional Laplace equation after one 
multigrid V cycle. 



4.2. NONLINEAR MULTIGRID 



53 



4.2 Nonlinear Multigrid 

One notational difference we make is in the differential operator itself. Previously, for a linear 
operator acting on a function, we would denote it simply by A^u^. However, now that we 
are dealing with nonlinear differential operators, we must be more careful and will represent a 
nonlinear operator acting on a function simply by the inclusion of parenthesis: A^{u^). With 
this notational change in mind, we set about analyzing the following situation: assume we wish 
to solve the nonlinear partial differential equation 

A^{u^) = /^ (4.16) 

where A'^Q now denotes a nonlinear differential operator, denotes the solution, and is 
the source. Recalling our original form for the residual. 



where once again denotes an approximate solution to our original equation, we may combine 
the above two equations to yield 

A'^iu'') - A'^iv'') = r''. (4.17) 

Note that if we were still dealing with linear operators, we could invoke the definition of the 
error, e'* = — v^, and Eq. ( 4.17 ) would simply reduce to the linear version of the residual 



equation, Eq. ( ^.14| ). However, due to the nonlinear nature of the operator A^{), we can no 



longer make that simplifying step. Hence, we must now use Eq. ([4.17|) as our new residual 
equation for nonlinear operators [^. Obviously, in the limit that the operator A^{) becomes 
linear, then the nonlinear residual equation reduces to the linear residual equation. 

Now, the question of implementation arises. In theory, the algorithm for nonlinear multigrid 
is very similar to that for linear multigrid. In practice, as we see when we discuss the actual 
computer code used to solve the Hamiltonian constraint, there are some subtle points which 
must be addressed. We will delay discussion of these subtle points until we list the actual 
computer code in the Appendix. For now, we lay out a generalized algorithm for a nonlinear 
multigrid V cycle . 



Assume you wish to solve a nonlinear partial differential equation of the form of Eq. (|4.16|) 
on a grid of dimension d which consists of n grid points on a side. Assume the form of the 
operator A^{) is known, and the source is known as well. The algorithm for a nonlinear 
multigrid V cycle is as follows. 

• Given an initial guess on the finest grid, perform several iterations of your favorite 
relaxation scheme, using the nonlinear residual equation as the basis of that relaxation 
scheme. This results in an updated approximate solution denoted as u^. 

• Calculate the residual due to the approximate solution using the nonlinear residual equa- 
tion, Eq. ( CT) - 



Restrict the residual from level h to level 2h via r"^^ = I^^r^, and restrict the updated 
approximate solution from level h to level 2h via v"^^ = If^u^. Note the updated fine grid 
approximation becomes the initial coarse grid approximation. 

Using the nonlinear residual equation as the basis for your relaxation scheme, relax 
Eq. ( |4.17| ) on level 2/i, resulting in an improved approximation 



u 



2h 
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• Calculate the new residual on level 2h using the nonlinear residual equation, and restrict 
this new residual to the next coarser level, level 4h. Also restrict the updated approximate 
solution u"^^ to the coarser level initial approximate solution via v^^ — I^j^u^^ . 

This process continues from finer to coarser level... 



On the coarsest level, denoted as Nh^ relax Eq. ([4.17|) resulting in u'^^. Calculate the 



error on level Nh via the traditional error formula e^^ = u^^ — v^^. 

Interpolate the coarse grid error e^'^ to the next finer level and update the fine level 
approximate solution via = ^/(^^i)'^ -)- I^^~^^'^e^^. Relax on the updated solution 

a few times to suppress any spurious high frequency modes. 

This process continues from coarser to finer level... 



Interpolate the coarse grid error e^^ to the finest level and update the approximate solution 



,h o,h „,h I rh „2h 



U Via U = U 



Calculate the residual on the finest level due to this updated solution. If the residual is 
below an acceptable level, then is the numerical solution to Eq. ( [4.161 ). Otherwise, 



the newly updated becomes the starting point for a new V cycle, in which one would 
simply follow the same procedure starting at the top of this list. 

With the above algorithm laid out, we are now able, in theory, to tackle a litany of nonlinear 
partial differential equations. However, the nonlinear equation of the Hamiltonian constraint 
given by Eq. ( p.l2| ) requires a little more care. A natural question arises: How does one impose 
realistic boundary conditions on a field when solving a problem on a finite grid? This question 
leads us into the realm of nonlinear adaptive multigrid methods. 



4.3 Nonlinear Adaptive Multigrid 

An unfortunate limitation of numerical modeling is based on attempting to gain as much res- 
olution as possible (i.e., a high density of grid points) while also imposing realistic boundary 
conditions. For some applications, this does not present a problem. For example, solving 
Laplace's equation for a temperature distribution on a two-dimensional plate can be done rela- 
tively easily. Because the plate is of finite size, and because either the temperature distribution 
or the derivative must be specified on the boundary of the plate, one can develop code with 
relatively high grid point densities without regard for computational resources. 

On the other hand, imagine attempting to solve Poisson's equation for the Newtonian 
gravitational potential for a constant density star. Typically, the region of interest is close 
to the star, so one would like to have a relatively high density of grid points in that vicinity. 
However, the typical boundary condition imposed on the potential is that it falls off as 1/r 
when one is very far from the star. Ideally, we would like to impose this boundary condition 
an infinite distance from the star, but this is of course impossible in the world of numerical 
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Figure 4.9: A simple two-dimensional example of an adaptive grid. 



modeling. If we impose this boundary condition too close to the surface of the star, then the 
resulting solution will not model a physically realistic system. 

One method of solving the problem of fine resolution with realistic boundary conditions 
is via a method called adaptive multigrid ||3^. Many of the ideas previously developed for 
multigrid are still applicable here, but we add the feature of variable grid densities to increase 
or decrease the resolution around areas of interest. We do this in a way which allows us to have 
a high resolution around the area of interest, yet which keeps the total grid number at a level 
which will not exceed machine memory limitations. 



Figure |4.9| is a simple illustration of the adaptive multigrid concept. It can roughly be 
thought of as a series of embedded adaptive levels, each with the same number of total grid 
points, but each consecutive adaptive level is twice as large as the previous adaptive level. As 
we can see in the figure, this allows for a relatively high grid density on the smallest adaptive 
level. It is important to note boundary conditions are not imposed on the smallest adaptive 
level, nor on any of the intermediate adaptive levels. Only on the largest adaptive level are the 
boundary conditions for the system imposed. Loosely speaking, information from the smallest 
level is transferred up to the next largest level. This process is continued until information from 
the last intermediate adaptive level is transferred up to the largest adaptive level. Once at this 
largest level, then regular multigrid methods can be employed, which solve the problem on the 
largest grid by imposing the appropriate boundary conditions on that level. Once the multigrid 
process is completed, then the new information on the largest level is transferred to the smaller 
intermediate adaptive level. This process continues until information from the second smallest 
level is transferred to the smallest adaptive level. This whole process consists of one iteration 
step — in general the process may be continued for an arbitrary number of iterations. 

In practice, the procedure is quite a bit more delicate than the above paragraph would 
indicate. One must be very careful as to how and what information is transferred to particular 
grid points from one adaptive level to the next, so in the algorithm which follows, particular 
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attention will be paid to each step in hopes of minimizing the ambiguities and confusion. 
Assume you wish to solve a nonlinear partial differential equation of the form of Eq. ([4.16|) 



on a grid of dimension d which consists of n grid points on a side. We demand n is of the form 
n = 2^^*^ + 3, where MG is an integer representing the number of multigrid levels. Assume the 
form of the operator A^{) is known, and the source is known as well. A natural length which 
plays an important role in the process is the physical length of the smallest adaptive level, 
which we denote as LEN. Another important length in the problem is denoted as SCALE, 
which is used to ensure that the grid spacings of a larger adaptive level are exactly twice that 
of the smaller adaptive level. 

Once a small grid resolution has been determined via the choice of the parameter MG, one is 
free to choose the number of adaptive levels, denoted by the parameter ADAPT. The choices 
of this integer parameter may depend on computer resources, desired solution accuracy, or 
computational time constraints. Obviously, the larger the value of ADAPT, the more memory 
required, and the more time involved to execute the program. 

It is of vital importance to be mindful of the physical sizes of the adaptive grids. For 
instance, the relationship between the natural scale of the problem, SCALE, and the physical 
length of the smallest adaptive level, LEN, is given by 

LEN = ^j^^ SCALE. (4.18) 



Again, the relationship in Eq. ( |4.18| ) ensures the consistency in grid spacings from one adaptive 



level to the next. Once the smallest grid size is specified, then each larger adaptive level is 
simply twice as big as the previous adaptive level. For instance, if we denote the physical size 
of a particular adaptive level as di, then d^ = LEN, di = 2 * LEN, d2 = 2 * di = A * LEN, 
etc.... This trend continues until we reach the largest adaptive level. Ensuring the grid spacings 
between the second largest and the largest levels are consistent, as well as ensuring we can 
perform straight nonlinear multigrid on this largest level, the physical size of the largest level 
is denoted as maxsize, and is given by 

maxsize = 2^^^^^ SCALE. (4.19) 

It is again important to point out that the number of grid points on all adaptive levels 
except the largest adaptive level is the same, and is given by n = 2*^*^ + 3. The number of grid 
points on the largest adaptive level is given by n = 2^*^ + 1. The reason for the difference in 
grid points numbers will become apparent when we discuss the full nonlinear adaptive multigrid 
algorithm, which we now present. 

• Begin by relaxing on the smallest adaptive level. It is important to only relax on the 
interior n — 3 grid points, without imposing any boundary conditions in the relaxation 
scheme. Denote the relaxed solution as u^, and the initial solution as v^. 

• Calculate the residual due to the relaxed solution from the standard nonlinear residual 
equation, given by Eq. ( f4.17| ), everywhere on the grid. 

• Restrict the relaxed solution u^, which exists on the interior n — 3 grid points of the 
smallest adaptive level, onto the interior n/2 — 1 grid points of the next larger adaptive 
level, and denote it as u"^^. One may think of this restricted "interior" solution as infor- 
mation which will eventually allow us to determine a correction to the smallest adaptive 
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level. However, any solution information which exists outside of this "interior" grid re- 
gion should be thought of as the best possible solution for that exterior region, and has 
nothing to do with a correction to the smaller level. 

The source for level 2h must now be calculated. This is achieved by first calculating the 
residual on level 2h due to the current approximate solution u^^, and then by restrict- 
ing the residual into the interior n/2 — 1 grid points of level 2h. This ties into the 
concept that the interior region is related to the correction to be added to the smaller 
adaptive level, where as the exterior region deals with the best possible information on 
that particular level. 

Relax on the interior n — 3 grid points of level 2h, without imposing any boundary 
conditions on the system. 

Keeping in mind the interior regions of larger adaptive levels consist of information related 
to a correction to be added back onto smaller adaptive solutions, and the exterior regions 
are the best possible information relating to the solution on that level, repeat the first five 
steps until the small grid solutions and residuals are eventually restricted to the interior 
n/2 grid points of the largest adaptive level. Note on none of the smaller adaptive levels 
are boundary conditions imposed on the solution. It is only on the largest adaptive level 
(and the associated multigrid levels) are boundary conditions imposed. 

Perform nonlinear multigrid on the largest adaptive level, using the algorithm set forth 
in §( [4.2| ). Again, it is at this point of the algorithm, and only at this point, the boundary 
conditions are imposed on the system. On completion of a number of multigrid V cycles 
on the largest adaptive level, we are left with a solution which we denote as u^^^^^. Care 
must now be taken to ensure the interior region solution and the exterior region solution 
are treated in the proper fashion; specifically, the interior n/2 solution is related to the 
smaller grid correction, and the exterior n/2 solution is the best possible solution for that 
grid level. 

Calculate the error e^^^^"^ = u^^^^'^ — v^^^p"^ on the interior n/2 — 1 grid points on 
the largest adaptive level. Interpolate this error onto the interior n — 3 grid points of the 
smaller adaptive level. This interpolated error, denoted as ^^dapt-i gj^ould be added to 
the interior solution of the smaller adaptive level via u^^^^^p^-^ = ^adapt-i _|_ ^adapt-i ^ 
The exterior solution of u"^^^^^, which represents the best solution on that level, should 
replace the exterior grid points of the next smaller adaptive level. This ensures the 
accurate solution information is transferred from one adaptive level to the next smaller 
level, and it also acts as an "anchor" for the relaxation scheme, fixing the field on the 
boundary of smaller adaptive levels to a particular value determined by the boundary 
conditions on the largest adaptive level. 

Continue interpolating the larger grid errors and the larger grid solutions to smaller 
and smaller grids. A few relaxation sweeps on each level may be employed, but again 
relaxation only occurs on the interior n — 3 grid points, and boundary conditions are not 
imposed on the smaller levels. Recall the information at grid point n — 2 coincides with 
the best solution at that particular physical distance — information which comes directly 
from the previous larger adaptive level. It is the solution at this point which acts, in 
effect, as the "boundary condition" for the relaxation of the interior n — 3 grid points. 
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and assures that the solution on smaller adaptive levels is consistent with the boundary 
conditions imposed at the largest adaptive level. 

• On reaching the smallest adaptive level the residual error, a measure of how well the 
approximate solution is solving the finite difference equation, and the truncation error, 
a measure of how much the approximate solution is changing from one iteration to the 
next, may be calculated. If the errors are below certain tolerances, then the equation of 
interest has been solved. If the errors are not below the tolerances, then simply return to 
the first step and reiterate the algorithm. 

This adaptive nonlinear multigrid algorithm is employed to solve the Hamiltonian constraint, 
which determines the conformal factor for a binary black hole system. We will briefly discuss 
some numerical tests of our code at the end of this chapter, but we defer discussion of numerical 
results of our variational principle until the next chapter. Before then, there are several other 
numerical issues which must be addressed. 



4.4 Other Numerical Issues 

4.4.1 Reformulation of the Nonlinear Partial Differential 
Equation 

Recall the motivation for our numerical endeavor. The Hamiltonian constraint of the Einstein 
equations is a nonlinear partial differential equation describing the conformal factor for a binary 
black hole system. Recall the conformal factor ijj is given by 

'il; = - + U, (4.20) 
a 

where l/a is given by 

l = f , (4.21) 

The "Newtonian" mass of the puncture is denoted as M(j), and the puncture location is deter- 
mined by the vector r(j). With this form for the conformal factor, the Hamiltonian constraint 
becomes an equation for U, given by 

V^t/ + /3(l + at/)-^ = 0, (4.22) 

where (3 is related to the conformal extrinsic curvature K'^'' of the geometry via 

(5 = ^a'^K-'Kat,. (4.23) 

Recall the extrinsic curvature must satisfy the momentum constraint equations of the Ein- 
stein equations. Due to the linearity of the momentum constraint, the extrinsic curvature is 
simply a sum of the conformal extrinsic curvatures of each puncture individually: 

TV 



K^' = J2^PSii)^ (4.24) 



i=l 
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where -f^p5(j) depends on the hnear momentum P° and spin angular momentum Sh of the 
punctures in the following way: 



K 



PS{i) 



3 

2r 



bed ( 



(4.25) 



where = + + z"^ in normal Cartesian coordinates, n"" = x"'/r, and g""^ is the normal flat 
space metric in Cartesian coordinates. 

Now that we have refreshed our memory about the equation we wish to solve, we realize that 
if we are to have any success in solving this nonlinear equation numerically, we must linearize 
the equation in a way which will allow our numerical scheme to converge to the solution of 
Eq. ( [4.22|) . First, we must rewrite the equation in terms of a new variable for reasons related to 
the boundary condition we wish to impose. Further discussion on the nature of the boundary 



condition, known as the Robin condition, is deferred until §( [4.4.2|) . The first step is defining 
the following: 



U=l+u. 

With this change of variables, Eq. ( ^4.22| ) becomes 

V\ + P{l + a + au)-'^ = 0. 



(4.26) 



(4.27) 



Now, the task at hand is to linearize Eq. ( 4.27 ) in a way which preserves its nonlinear 
flavor. One way to achieve this is to imagine the quantity u consists of some value uq plus a 
perturbation 6u, namely u = Uq + 6u. Plugging the full perturbed form of u into Eq. (|4.27|) 
yields 

V^(mo + Su) + p{l + a + auo + a^w)"^ = 0. (4.28) 
In anticipation of linearization, we begin to isolate the terms involving 6u in the following way: 

a6u 



V^uo + 6u) + f3{l + a + auo) 1 



-7 



0. 



1 + a + auo. 

Now, by assuming ^ 1, we Taylor expand the equation to yield the following: 

7a6u 



(4.29) 



V\uo + 6u) +/?(! + « + awo)^ 1 



1 + a + auo 



0. 



(4.30) 



Now, we add and subtract terms in an attempt to regroup terms of the form mq + 6u, i.e., 
make the substitution 6u — > 6u + uo — uq. In doing so, and keeping only the uq + 6u terms on 
the left hand side of the equation, we have 



V^(uo + 5u) — 7aP{l + a + auo) ^{uq + 5u) 



— /5(1 + a + auo) 



7aun 



1 + a + auQ 



(4.31) 
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Once again using the identification of m = Uq + 6u, we are left with our final equation describing 
u: 



V^M — 7aP{l + a + auo) 

= — + a + auo)~ 



1 + 



7aU(] 



1 + a + auQ 



(4.32) 



One way to interpret the meaning of this equation is to view uq as an "old" value of the 
field u, so we can see in Eq. ( [4. 321) how the field at a point depends on itself in a nonlinear 
fashion. 

In anticipation of finite differencing the partial differential equation, we take inspiration 
from the nonlinear residual equation A{u) — A{v) = r to yield the final version of the equation 
in which we will apply our nonlinear adaptive multigrid scheme: 



V^M — 7aP{l + a + auo 



1-8 



U 



s + V^v + (3{l + a + avY 



— P{1 + a + auo) 



1 + 



7auo 



1 + a + auQ 



(4.33) 



In the above equation, s denotes the source on a particular level and v denotes the previous 
best solution on a particular level. Equation ( ^.33) ) forms the basis of our relaxation scheme. 



as well as the method in which we calculate residuals. In practice, Eqn. ([4.33|) will become 
a finite-differenced equation for u. A subtle detail of Eqn. ( [4.33|) is the interpretation of s. 
For instance, on the smallest adaptive level we are interested in a solution to Eqn. ( [4.32| ); this 
requires the source s and the field v to be initialized to zero on the smallest adaptive level. 
However, on subsequent adaptive levels, the source s is roughly the restricted residual from a 
previous smaller adaptive level, and the field v is the previous best solution which exists on 
that level. Details of the algorithm may be found in the Appendix. 



4.4.2 The Robin Boundary condition 

As has been mentioned numerous times above, imposing realistic boundary conditions on the 
field of interest is of vital importance if one wishes to accurately model physically realistic 
systems. 

Asymptotic flatness dictates the field U must behave as f/ — 1 = 0(r^^) for distances far 
from the punctures 0]. This translates to an approximate boundary condition, known as the 
Robin condition, which may be constructed by demanding when far from the source, the field 
U should be dominated by a monopole term |^T[. This allows us to place a constraint on the 
radial derivative of U in the following way: 

f - i^. (4.34) 

or r 



Recall in §( [4.4.1|) we started with an equation describing the field U, but then made a 
variable substitution to re-express the equation in terms of the field u, which is related to 
U via U = 1 + u. The reasoning behind this change of variables deals with the linearity of 
the Robin condition. To test the linearity of the Robin condition, we use two test functions. 
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denoted as Ui and f/2. Denoting the Robin condition operation as RC{), we wish to see if 
RC{Ui) + RC{U2) = RC{Ui + f/2). Plugging Ui and U2 into Eq. ( WM , we find 

§^l + ^ = i^+i^ (4.35, 

or or r r 

which becomes 

dU,^dU2^ 2-U,-U, 
dr dr r ' 

which most assuredly is not the same as 

d{Ui + U2) 1 - f/i - U2 



dr 



(4.37) 



Because of this nonlinear nature of the Robin condition, we must proceed with caution. Let 
us identify U = 1 + u and rewrite the Robin condition on u to read 

^ = --. (4.38) 

or r 

This indicates the field u is dominated by a monopole term, and goes to zero far from the 
punctures, which preserves the asymptotic behavior of the field U . Let us re-test the linearity 
of our reformulated Robin condition, Eq. ( [4.38| ), using the test fields ui and U2. Writing down 
the term corresponding to RC{ui + M2), we find 

d{ui + U2) _ {ui + U2) ^^gg^ 
dr r 

Now, comparing to RC{ui) + RC{u2) we find 

dui du2 ui U2 

dr dr r r ' 

which in turn becomes 

dui du2 {ui + U2) 



dr dr 



(4.40) 



Equation (|4.4CI|) is the same as Eq. (|4.39|) , which indicates that the Robin condition specified 
by Eq. ( [4. 381 ) is indeed a linear operator. Hence, the equation we wish to solve is Eq. ( [4.33| ) for 
the field u subject to the Robin boundary condition, given by Eq. ([4.38|) . 

As a final note on the Robin boundary condition, we must keep in mind we will employ 
our numerical scheme on a cubic lattice, so we must express the radial derivative using the 
following identification: 

d „^ X d y d z d , . 

— = n'^Va = -jr+ 7r + -fT- ^^-^1) 

dr r dx r dy r dz 

The identity stated in Eq. ( [4.41|) , along with some minor simplification, yields the final form of 
the Robin condition employed in the numerical algorithm: 
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4.4.3 The Galerkin Operator and Finite Differencing 

Up to this point, we have avoided discussing the issue of determining the form of the coarse 
grid operator A'^'^ with knowledge of the fine grid operator A^. In general, there is no right or 
wrong way in which to choose the coarse grid operator, but its determination really depends 
on the type of problem one wishes to solve. 

Before we delve into the discussion of coarse grid operators and methods of finite differencing, 
let us first introduce some handy notation. It is often the case one can uniquely determine the 
form of an operator simply by its stencil The stencil of a particular operator is simply 
the numerical coefficients associated with an operator acting on a particular grid point. The 
notation we use for stencils will be the following (nonstandard) convention: 

[0,1,2,3] = {A,B, CD), (4.43) 

where the numbers 0, 1, 2, and 3 in the square brackets denote the central grid point at which 
the operator is acting, grid points which are once removed from the central grid point, grid 
points twice removed from the central grid point, and grid points three times removed from the 
central grid point, respectively. The numerical coefficients A, B, C , and D in the parenthesis 
correspond to the above mentioned grid points. As an example, assume we want to write the 
stencil for a simple identity operator. In this case, the stencil would be of the form: 

[0,1,2,3] = (1,0,0,0), (4.44) 

simply because this identity operator only depends on the value at the central grid point. 
Another example is with the "traditional" operator in three dimensions, whose stencil is 
given by: 

[0,1,2,3],= (-6,1,0,0). (4.45) 

With this handy notation, we may now discuss the matter of determining coarse grid operators. 

As mentioned above, the method in which one determines the coarse grid operator A^^ really 
depends on the problem at hand. In some instances, this issue may not even present itself as 
a problem; for our initial investigations into multigrid methods in which we were attempting 
to solve Poisson's equation in three dimensions, we gave little thought to the consequences of 
our choice of coarse grid operator. In effect, we used the stencil given by Eq. ( [4.45| ) as our 



fine and coarse grid operator. As was mentioned in previous sections, we had great success in 
solving Poisson's equations with this operator, but situations may arise (and they do!) in which 
this particular choice of coarse grid operator does not lead to convergence. A natural question 
arises: How does one determine the "correct" coarse grid operator? 

The answer lies in what is known as the Galerkin condition^^, which was briefly men- 
tioned in previous sections. Recalling our notation for restriction [I]^) and interpolation {l2h) 
operators, the Galerkin condition may be stated mathematically as 

^2h ^ il^A^I^^^^ (4.46) 

where once again A^ is the fine grid operator, and A^^ is the resulting coarse grid operator. 
The motivation for Eq. ( 4.46| ) may be viewed as follows: Imagine we have a coarse grid function 



v?^ which is a solution to the problem of interest. If this function is indeed a solution on the 
coarse grid, then we would hope that it would also be a solution to the fine grid problem. 



4.4. OTHER NUMERICAL ISSUES 



63 



Another way of thinking of this is the following: If we interpolate a coarse grid solution to the 
fine grid and then calculate the fine grid residual, we expect that fine grid residual to be zero. 
When we restrict the fine grid residual back to the coarse grid, we expect the residual to remain 
unchanged from its fine grid value (i.e., the residual should remain zero). If this condition is 
satisfied, then the coarse grid operator A^^ is a Galerkin operator. 

One could calculate the Galerkin operator "on the fly" — that is, write computer code to 
generate the correct Galerkin stencil for every coarse grid encountered during the multigrid or 
adaptive multigrid V cycles. However, we believe it is more beneficial to determine a Galerkin 
operator which has exactly the same form on all levels, from the finest to the coarsest. This 
allows for the determination of a single operator, valid on all levels, which facilitates writing 
code, testing, and debugging. 

Because the class of problems we are interested in can be deemed "Poisson-like" , we endeavor 
to determine a stencil for which can be used on all levels and satisfies the Galerkin condition, 

Eq. (loel) . 

The starting point of this process is to determine all of the linearly independent stencils for 
the operator which are accurate for quadratic functions. This is done by constructing a "test 
cube" of three grid points on a side, where the center grid point of the cube is the grid point 
in which we will apply our various operators. We now associate an unknown coefficient to 
each classification of grid point, much as we do with the stencils mentioned above. Specifically, 
associate the coefficient A with the central point, the coefficient B to those grid points once 
removed, C for those twice removed, and D for the grid points which are three times removed 
from the central grid point. 

The condition that we wish our to be accurate for quadratic functions means that it 
must yield the correct results for functions of the form /(x) = 1, f{x) = x, and /(x) = x'^. This 
means when we apply our operator to our "test cube" , we demand the expected results. For 
instance, if our test cube is filled with a constant value of f{x) = 1, then we know V^(l) = 
everywhere. This implies the application of the operator to our cube yields 

A + 6B+12C + 8D = 0. (4.47) 

We obviously need more equations to solve for the numerical coefficients, and this is achieved 
by applying the functions f{x) = x and f{x) = x^ to our test cube. The results of those 
operations are 

-B - AC - AD + B + AC + AD = 0, (4.48) 
which is simply a tautology, and 

2B + 8C + 8D = 2. (4.49) 



We now use Eq. ( ^.471 ) and Eq. ( [4. 491 ) to determine the coefficients. Noting we have some 
freedom in the determination of our coefficients, we first set B to be zero — our "traditional" 
stencil already depends on the nearest neighbors, so we would like to rule this stencil out of our 
remaining choices. Once this is done, we may choose C to be zero, which yields the following 
stencil: 

[0,1,2,3]5= (-2,0,0,^) . (4.50) 
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If we were to choose D to be zero, then we would generate a different stencil for V : 

[0,1,2,3],= (^-3,0,^,0^ . (4.51) 

Armed with our three linearly independent stencils for V^, recall what the purpose of this 
exercise is: we wish to determine a stencil for which has the same form on every level, and 
also satisfies the Galerkin condition given by Eq. ( [4.461) . Stated another way, assume we write 



our as-yet unknown Galerkin operator as a linear combination of our three existing stencils for 
V^: 

= a(-6, 1, 0,0) + b (^-2, 0, (^-3, 0, i, 0^ , (4.52) 

where V^- denotes the Galerkin operator, and a, b, and c are unknown numerical coefficients. 
Our job is to determine these coefficients such that this Galerkin operator has exactly the same 
stencil on every level — fine or coarse. 

The method used to determine the unknown coefficients a, b, and c relies on the definition 
of the Galerkin condition, Eq. ( 4.46 ), along with some computer code written in C++. The 



computer code simply filled our test cube of 27 grid points with zeros everywhere, except at 
the center-most grid point. At this central point the value is set equal to unity. Then, the code 
simply applies the Galerkin condition to each of our three stencils individually, acting on the test 
cube. For instance, recall our "traditional" stencil for is simply [0, l,2,3]a = (—6,1,0,0). 
However, when our test cube is interpolated to a finer level, acted on by our traditional 
operator, and in turn restricted back to the coarse level, the resulting stencil is [0, l,2,3]Ga = 
(—54, 3, |, I) . The subscript Ga indicates that the stencil is the result of the Galerkin condition, 
and is associated with numerical coefficient a. Likewise, performing the same operations on the b 
and c stencils yield [0, 1, 2, Sjcb = (—38, —1, |, |) and [0, 1, 2, 3]gc = (—45, |, ^, |) , respectively. 

Likewise, when the three stencils are not interpolated and restricted, but simply applied 
to the test cube, the results are [0, l,2,3]f = (-96,16,0,0), [0,l,2,3]f = (-32,0,0,4) and 
[0,1,2,3]^^ = (—48,0,4,0), respectively. The superscript 2h is meant to denote the operators 
were determined on the coarse grid. 

Because we are interested in a Galerkin operator which has the same form on every level, 
we are interested in stencils which obey the following rule: 

a[0,l,2,3]f + 6[0,l,2,3]f + c[0,l,2,3]f 

= a[0, 1, 2, 3]Ga + b[0, 1, 2, 3]g6 + c[0, 1, 2, 3]gc. (4.53) 

It is important to note this relationship must hold for all points in our test cube, so we 
must write down an equation for the central point, one for the grid points once removed, one 
for those twice removed, and finally an equation for the grid points three times removed. These 
equations, after some simplification, are: 

2b -c = 14a, (4.54) 
2b -c = -26a, (4.55) 
2b -c = -2a, (4.56) 

2b -c = -^a. (4.57) 
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These four equations indicate a = and c = 2b. We may determine the value of b by applying 
our Galerkin operator (with a = and c = 2b) to the function f{x) = in our test cube. 
Starting from Eqn. ( [4.52| ), we may write 



[bVl + 2bVl] ix') 



-2,0,0, 



2(-3,0,-,0 



b(^-8,0^-,\]ix'^ 
6b 



(4.58) 



We know that V^x^ = 2, so we find that & = |- Hence, we may write the Galerkin operator for 
in one of many forms; abstractly it may be written as 



1 



V^ = -[0,1, 2, 3], + -[0,1, 2, 3], 



(4.59) 



or with the coefficients of the stencils as 

_o 1 



G 



-2,0,0,- 
' ' ' 4 



-3,0, -,0 



(4.60) 



or in a convenient combined form: 



,0, 



1 1 



3' ' 6' 12 



(4.61) 



Equation (|4.61|) is the main result of this section, and is the operator we employ in our 
nonlinear adaptive multigrid algorithm. 



4.4.4 The ADM Mass and Multipole Moments 

It has long been known [^0 when the Hamiltonian of General Relativity is written in the 
3+1 formalism, certain terms may be re-expressed as a total divergence, and hence become a 
surface integral. Assuming the lapse function = 1 at spatial infinity, the resulting surface 
integral may be written as 

167rEADM = / Vlf'l'\l^kJ - lij,k)dSi, (4.62) 

J oo 

where i^ADM is known as the ADM mass of the field and 'jij is the three metric of the geometry. 
The indices are purely spatial, and the integral is performed on a surface located at r = cx) in 
a coordinate system which is asymptotically fiat. If one were to calculate the ADM mass for 
the Schwarzschild metric, one would arrive at the expected result of -Eadm = where m is 
the Schwarzschild mass parameter. 

For situations in which the three metric is conformally fiat, namely jab = "^^gab where Qab is 
the fiat three metric, it is relatively straightforward to derive an expression for the ADM mass 
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which only depends on the conformal factor ip. To do this, we simply substitute the conformally 
flat metric given above into Eq. ( [4.62D . This results in 



l67rEADM = f '^^g"^g''^[{gjk,i - gki,j)^* + 4^P\^P,igjk - i^,jgki)]dSi, (4.63) 

J oo 

which in turn simplifies to 

167rEADM = 4 (/" - 3)^/j,ig''dS,, (4.64) 



which we may write in its final form as 

EADM = -^f V^P-dS. (4.65) 

One may note Gauss' law may be used to re-express Eq. ( |4.65| ) in terms of a volume integral, 
specifically 

^ADM = / Vg^^^d^x. (4.66) 

In theory, if one could evaluate the integral of Eq. (|4.66| ) over a volume bounded by a surface 
at r = oo then one could arrive at the ADM mass for the system. 

However, in the world of numerical modeling, this is typically not feasible. For starters, 
integrating over all of space is not possible due to memory limitations on the machine running 
the code — hence, it is necessary that we only integrate over a finite volume of space. Unfor- 
tunately, even this presents some difficulties. Imagine we choose to integrate a volume which 
consists of a cube with 65 grid points on a side. This translates to calculating a sum at nearly 
300,000 points, which can be time consuming, to say the least! If we were instead to do a sur- 
face integral over the bounding surface, this would reduce the number of grid points involved 
in the calculation to approximately 13,000 points, which in turn would significantly reduce the 
amount of time spent computing the ADM mass. 

However, if we wish to calculate the ADM mass via the surface integral, we discover another 
complication: we have a stencil describing V^, the Galerkin operator associated with the volume 
integral, but we have no knowledge of the form of the stencil describing the n ■ V operator in 
the surface integral. It would appear that if we are to succeed, we must determine the proper 
stencil for the surface integral, where the surface of integration consists of the faces of a cube. 

The starting point for the determination of the surface integral operator is Eq. ( |4.66|) , the 
equation for the volume integral. One can imagine the volume of integration to be a cube 
with a small number of grid points on each side, say four. Then, the stencil associated with 
the Galerkin operator is applied to each point of our "test cube" in hopes of seeing how 
the volume integral manifests itself as a surface integral, and perhaps more importantly to 
determine the correct form of the stencil to be employed for the resulting surface integral. 

With a little effort, it soon becomes apparent that all of the contributions from interior grid 
points of the cube cancel out, and the only contribution from the volume integral is due to grid 
points on the surface. In this way, the volume integral shows us directly that, after applying the 
Galerkin stencil to our test cube, the volume integral given by Eq. ( |4.66| ) reduces to the surface 
integral given by Eq. ( [4.651 ). The surface integral, as mentioned above, allows for a relatively 
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speedy and simple means of calculating the energy of the system. Perhaps more importantly, 
this method also generates the proper stencil associated with the surface integral. 

In an effort to extract more information from the conformal factor, we have also determined 
a method to calculate the multipole moments of the field via a convenient surface integral. 
Roughly speaking, one can calculate the multipole moments of the field by integrating the 
spherical harmonics with indices i and m with V'^ip over all space. However, for reasons 
mentioned above, volume integrals on a numerical grid are time consuming and costly — it 
would be to our benefit to determine an equivalent means to calculate multipole moments via 
surface integrals. 

We begin by defining the function ip'^ via 

^ rV4, (4.67) 

where r is the usual radial Cartesian coordinate and Y^^ are the complex conjugates of the 
spherical harmonics. We claim the proper surface integral for the multipole moments with 
spherical harmonic indices i and m is of the form 



v^(2£ 



j [^tv,^ - ^V,^t] dS'^^ (4.68) 



where dS'^ denotes a unit of surface area with a unit vector normal to the surface of integration. 
Let us prove our assertion that Eq. ([4.68|) is indeed the correct formula for the multipole 



moments by a simple example. Assume the conformal factor is a linear combination of terms 
proportional to the spherical harmonics. 

where V'fm is the multipole moment associated with a particular choice of i and m. Note the 
assumed radial dependence of the conformal factor is determined by the asymptotic behavior 
■0 — »• 1 as r — *• oo. After some simplifications, we evaluate to be 



1 



r^dn. (4.70) 



After evaluating the derivatives inside the integral, we find 



^im = - ^^2i+l) / + mmYimY;j d^. (4.71) 

However, after usage of the orthogonality condition of the spherical harmonics, we ultimately 
find the value of the multipole moment to be 

<!>em = ^^tra- (4.72) 



which is exactly the result we would expect. Imagine our field being spherically symmetric, and 
corresponding to ■i/' = 1/a = Mj (2r). For this case, the coefficient of would be = a/ttM, 
which would yield the lowest order multipole moment to be $00 = ^1 the Newtonian mass of 
the system. 
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Now that our generalized form of the multipole moments has been determined via Eq. ( [4.68| ), 
we may set about the task of determining a way in which to evaluate the integral numerically. 
By application of Gauss' law, we find we may write Eq. ( [4.68| ) as a volume integral given by 



We can see from the above equation how we justify the statement that the multipole moments 
may be determined by the integral of the spherical harmonics with V'^ip- is an eigenfunction 
of the Laplacian, and hence the second term in the above integral vanishes. With the above 
form of the integral, we may set about applying the Galerkin stencil for to the fields ip and 
ipK On doing this, one will quickly see that all of the interior grid points will not contribute to 
the overall surface integral — ^just as was demonstrated above when examining the ADM mass. 
It is a tedious but straightforward task to determine the correct stencils for the multipole 
moments — one must be careful of the faces, edges, and corners of the numerical grid. The final 
result may be seen in the program moment, which is listed in its entirety in the Appendix. 



4.4.5 Numerical Tests of the Adaptive Nonlinear Code 

Fortunately, we know of two cases in which we may test our numerical results to analytic 
expressions for the ADM mass. The first case is for a single boosted black hole; the second is 
for two black holes, separated by a "small" distance and boosted towards each other. Recall 
the expression for the ADM mass of the system, in the form of a volume integral given by 
Eq. ( ^^ : 

^ADM = [ VgV^^d^x. (4.74) 

^vr Jy 

Noting the conformal factor is given hj = - + I + u, and also recalling the equation our 
adaptive nonlinear code is solving, given by 

V^u + Pil + a + auy^ = 0, (4.75) 

we realize that we may re-write the expression for the ADM mass as follows: 

^ADM = / V (-] d''x + ^ [ P{l + a + auy'd^'x, (4.76) 
Zn Jy \a J Ztc Jy 

where we are evaluating the expression in regular Cartesian coordinates. Noting the first term 
simply yields the Newtonian masses of each individual puncture, we may write the ADM mass 
in the following form: 

Eadm = Mi + M2 + ^ / /?(! + « + au)-^d^x. (4.77) 
2vr Jy 

Let us examine Eq. ( [4.77| ) for the situation of a single boosted black hole, where the linear 
momentum of the hole is small. In this situation, we assume the conformal factor correction 
is small (u -C 1) and can be ignored in the above integral. Hence, our ADM mass for a single 
boosted black hole becomes 

^ADM = M+^ [ /?(! + ay'd'x. (4.78) 

Jv 
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It is relatively straightforward to show that the integrand of Eq. ( [4.78| ) is simply 



/3(1 + a)-' = 72P2-^[1 + 2 cos^ 0] [l + j . (4.79) 

When integrated using spherical coordinates, we find the ADM mass for a single boosted black 
hole is given by 

5 p2 

Eabm = M+-— (4.80) 

o IVl 

for small momentum. 



2r\ ^ 



Tables [4.1| , [4.2| and [4.3| show our numerical results for a single boosted black hole, evaluated 
at various distances. In each case, the momentum of the hole is given a value of P = O.IOM. 
Each test is calculated using ten adaptive levels with a total of eight iterations, and the physical 
scale of the problem (given by the parameter SCALE in the code) is equal to 4.0M. The only 
parameter which is varied from one table to the next is the number of grid points on the side 
of the smallest adaptive level in an octant of space, numbering n = 11, n = 19, and n = 35 
grid points respectively. 

As can be seen from the tables, the ADM mass increases slightly as a function of the distance 
at which this quantity is evaluated — we attribute this to the nonlinear nature of the equation the 
code is solving. The most interesting point, however, is the amount our numerical results agree 
with the theoretical prediction for the mass correction. In Table the discrepancy between the 
theoretical and numerical values of the mass correction are approximately 1.3% when measured 
at the furthest grid point. Higher resolutions yield even more impressive results, showing 
deviations from the expected theoretical mass correction of 0.55% and 0.42%, respectively. 

One may inquire why the ADM mass of a single boosted black hole yields a coefficient of 
5/8 in front of the kinetic energy term, rather than the expected Newtonian value of 1/2. It 



would appear there is some additional energy present in the geometry. Figure |4.10| shows the 
radial dependence of the normalized energy density of the field versus the normalized radial 
distance. If one were to integrate this curve from r = to r = oo, the result would be 5/8. The 
figure indicates it is difficult to localize the additional energy content of the geometry, which 
implies the additional energy is "frozen" into the geometry. It is not clear if this additional 
energy is due to the simplification introduced by a trace-free conformal extrinsic curvature, or 
if it is due to the conformal fiatness conjecture. Additionally, it is not clear how this additional 
energy would effect an evolution of the geometry via the dynamical Einstein equations. We 
note the additional energy content will place a limitation on our ability to model astrophysically 
realistic binary black hole systems. The geometry will nonetheless provide a proving ground 
for the variational principle we employ. 

We can test our numerical results against another situation — two black holes separated by 
a small distance, and boosted towards each other with relatively small momenta. The method 
of deriving an analytic result for the ADM mass is similar to that of above, but requires a little 
more effort. For this case, we used Mathematica to determine the form of the integrand for 



Eq. (|4.77| ), which is quite a bit more complicated than the single boosted black hole scenario. 



Once the integrand is determined, it is necessary to expand the integrand in powers of -p, where 
L is the coordinate position of each hole along the x axis. This limits our analysis to cases 
with -C 1, but still provides an adequate test bed for the code. When the expansion of the 
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Distance 


ADM Mass 


7 


1.004478360538468 


14 


1.005246092534632 


28 


1.005687987991896 


56 


1.005925410956947 


112 


1.006048517746048 


224 


1.006111206656130 


448 


1.006142839716399 


896 


1.006158728997733 


1792 


1.006166691900793 


3584 


1.006170677928971 



Tabic 4.1: Code test for a single boosted black hole: n = 11 grid points on a side, ADAPT — 10 
adaptive levels, theoretical ADM mass £^adm = 1.00625M 
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Distance 


ADM Mass 


7 


1.004456160293023 


14 


1.005250846181358 


28 


1.005710799727296 


56 


1.005958644512548 


112 


1.006087346697324 


224 


1.006152934348016 


448 


1.006186042680404 


896 


1.006202676155737 


1792 


1.006211012805630 


3584 


1.006215186117088 



Table 4.2: Code test for a single boosted black hole: n = 19 grid points on a side, ADAPT — 10 
adaptive levels, theoretical ADM mass £^adm = 1.00625M 
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Distance 


ADM Mass 


7 


1.004433482500703 


14 


1.005240400855877 


28 


1.005708711698705 


56 


1.005961421538742 


112 


1.006092746446622 


224 


1.006159695535913 


448 


1.006193497436792 


896 


1.006210480949185 


1792 


1.006218993438650 


3584 


1.006223254876639 



Tabic 4.3: Code test for a single boosted black hole: n = 35 grid points on a side, ADAPT — 10 
adaptive levels, theoretical ADM mass £^adm = 1.00625M 
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Figure 4.10: The radial dependence of the normahzed energy density r^p(r) / (P/M)^ versus 
normahzed distance r/M. 
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Distance 


ADM Mass 


7 


2.002204960144522 


14 


2.002235779237632 


28 


2.002240987490862 


56 


2.002241749371064 


112 


2.002241852453771 


224 


2.002241865652823 


448 


2.002241867039063 


896 


2.002241866886472 


1792 


2.002241866678383 


3584 


2.002241866670044 



Table 4.4: Code test for two boosted black holes: n = 11 grid points on a side, ADAPT = 10 
adaptive levels, theoretical ADM mass £^adm = 2.0021314285M 



integrand is completed, we find the ADM mass for this situation is given by 
Eadm = 2M + M 



px2 



M 



11 / lV 24 / L ^ ^ 



50 \M 35 VM 



(4.81) 



where M once again is the Newtonian mass of the individual punctures. 



Tables [4.4|, [4.5| and show the results for two black holes located at coordinate distances 
+0.1M and — O.IM along the x axis. The holes are boosted towards each other with a linear 
momentum of P = l.OM. The physical scale of the grids are the same as for the single black 
hole above, and again, each test was run with ten adaptive levels and eight complete iterations. 



The only parameter varied was once again the number of grid points. As shown in Table |4.4| , 
the discrepancy between the theoretical and numerical mass correction is 5.2%. Going to higher 
grid densities results in mass correction discrepancies of 1.4% and 0.6%, respectively. 

As these two test cases would indicate, we can be confident that our code is correctly solving 
the nonlinear partial differential equation for the correction to the conformal factor, given by 
Eq. ( |4.75| ). We may now proceed to apply the code towards solving the Hamiltonian constraint 
for binary black holes in quasi-equilibrium circular orbits. 
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Distance 


ADM Mass 


7 


2.00212124423002 


14 


2.00215537225156 


28 


2.00216120866229 


56 


2.00216206802759 


112 


2.0021621847792 


224 


2.00216219991037 


448 


2.00216220173672 


896 


2.00216220191223 


1792 


2.00216220194748 


3584 


2.00216220193432 



Table 4.5: Code test for two boosted black holes: n = 19 grid points on a side, ADAPT — 10 
adaptive levels, theoretical ADM mass ^adm = 2.0021314285M 
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Distance 


ADM Mass 


7 


2.00210214462189 


14 


2.00213793576375 


28 


2.00214409210936 


56 


2.00214500147877 


112 


2.00214512527282 


224 


2.00214514140509 


448 


2.00214514345247 


896 


2.00214514371485 


1792 


2.00214514374563 


3584 


2.00214514374897 



Table 4.6: Code test for two boosted black holes: n = 35 grid points on a side, ADAPT — 10 
adaptive levels, theoretical ADM mass E^adm = 2.0021314285M 



Chapter 5 
Numerical Results 



We present the numerical results from our adaptive multigrid computer code used to model 
binary black holes, as described in the previous chapter. The computer code employed may be 
found in its entirety in the Appendix. 

The procedure for generating a sequence of quasi- stationary circular orbits which satisfy 
the constraint equations is, in theory, quite simple. The variational principle even guides 
us as to how to approach the problem: simply write some computer code which solves the 
Hamiltonian constraint for some fixed value of angular momentum J and bare masses m. Vary 
the separation distance of the black holes until you find a minimum in the value of the ADM 
mass. A minimum in the ADM mass ensures the sytem under study is a solution to the 
quasi-equilibrium Einstein equations for those particular values of J and m. The separation 
distance associated with this minimum corresponds to the coordinate separation distance of a 
quasi-equilibrium circular orbit for the system. The variational principle also indicates how to 
determine the angular frequency for this circular orbit; simply determine the minimum in 
the ADM mass for a slightly different value of the angular momentum. One can then proceed 
in a similar fashion to generate a sequence of "effective potential" curves, where each minimum 
in the curve corresponds to a quasi-equilibrium circular orbit. 

The resulting sequence of circular orbits can be viewed in the following fashion: a realistic 
binary system will radiate gravitational waves, causing their orbital separation distance to 
decrease slowly. Because of the circularizing nature on the orbits of gravitational radiation , 
the sequence of circular quasi-equilibrium orbits is a reasonable estimate to reality. The binary 
system will then "evolve" along the sequence, until the binary system reaches the innermost 
stable circular orbit (ISCO). It is at the ISCO that we can no longer employ the variational 
principle to generate information about circular orbits, and we can not determine the dynamics 
of the final plunge. Despite this shortcoming, the variational principle, and the sequence it 
generates, yields valuable information about the evolution of the system up to and including 
the ISCO. In particular, the orbital frequency at the ISCO is of vital interest to investigators 
in the field of gravitational wave detection. 

One problem that arises is the question of mass. Specifically, what exactly does one mean 
when he speaks of the mass of a black hole? There is no general consensus on the answer to this 
question 13^,3^,33]. Recall from §(|^) that we encountered two types of mass when describing 
the punctures of Brandt and Brugmann: the "bare" mass m and the "Newtonian" mass M, 
which are related via 

m, = Mi(l+u, + ^A , (5.1) 
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where mi is the bare mass of the z*'^ hole, Mi is the corresponding Newtonian mass, Ui is the 
value of the correction to the conformal factor at the i*^^ hole, and D is the coordinate separation 
distance between the holes. 

However, these two masses are not the only two used to describe black holes. In Baumgarte's 
formalism he chooses to use the mass associated with the area of the apparent horizon, 
described by Christ odoulou's formula, to specify the system. 

A different measure of the mass is the rest mass, which is given by the familiar special 
relativistic expression 



Erest — y -£^ADM ~ ^ (5-2) 

where £^adm is the ADM mass of an isolated black hole with linear momentum P. We have opted 
to use the rest mass when comparing our numerical results to the expected post-Newtonian 
results, simply because it is a measure of an individual hole's energy without any contribution 
from the other hole. 

We begin our numerical analysis by using a program named VP, which is used to generate 
an "effective potential" curve for some fixed value of angular momentum J and fixed bare mass 
fn. Let us describe, in detail, what the code does for a particular value of angular momentum. 

For a fixed value of J, the separation distance D is initialized to some value. From these two 
quantities, the linear momentum P of each hole is determined via J = PD. To ensure a solution 
to the quasi-equilibrium Einstein equations, recall that the variational principle dictates that 
we must hold the bare mass m fixed as we generate the sequence; the Newtonian mass M 
may vary through the sequence. Therefore, for a fixed value of the bare mass, we initialize 
the Newtonian mass to an arbitrary value. We then solve the Hamiltonian constraint for the 
correction to the conformal factor u. We then calculate the new value of the Newtonian mass, 
which follows directly from Eq. ( |5.1| ): 



M = -D{l+u) + y/D^{l + u)^ + 2Dm. (5.3) 

Using this new value of the Newtonian mass, we re-solve the Hamiltonian constraint. The old 
value of the conformal factor correction at the location of the hole is compared to the new 
value, and if the difference is below some tolerance level we conclude that we have reached 
convergence for that particular separation distance D. Once we have reached convergence, we 
calculate the ADM mass for the system and save the information to a file. Then, still using 
the unchanged values for the angular momentum J and the bare mass m, we decrement the 
separation distance D and repeat the process to determine a new value of the ADM mass for 
that separation distance. This process continues until a single "effective potential" curve has 
been produced for a fixed value of J and m. Once this has been done, we decrement the value 
of the angular momentum J and generate a new curve. 

Once a series of curves have been generated, each curve corresponding to a different value 
of angular momentum, then we must determine the location of the local minima of each curve. 
The location of these minima correspond to a circular orbit for some value of angular momenta. 
This is achieved using the program min. It is a minimization routine taken from Numerical 



Recipes which employs Brent's method Once the minima of a curve has been determined, 
the information is saved to a file. 



Figure |5.1| is one example of the curves generated by this procedure, with the location of 



the circular orbits denoted by the dashed curve, with diamonds representing the locations of 
the circular orbits for particular values of J. This particular figure was generated for a grid 
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Figure 5.1: ADM mass curves and the corresponding sequence of circular orbits for n = 11 
grid points on a side and ADAPT = 10 adaptive levels. The values of J range from 2.93m^ 
to S.OOnf. The sequence of circular orbits terminates at J = 2.936m^, the innermost stable 
circular orbit. 



with n = 11 grid points on a side, and ten adaptive levels. The vertical axis is the ADM mass 
of the system, and the horizontal axis is the coordinate separation distance between the two 
holes. The lowest curve corresponds to a value of the angular momentum J = 2.93m^, and the 
topmost curve corresponds to a value of J = B.OOm^. The sequence of circular orbits terminates 
at a separation distance oi D = 5.8395m, which corresponds to a value of J = 2.936m^. 



Likewise, Figure ^]2| is a similar figure of curves for values of angular momentum ranging 
from J = 2.90m^ to J = 3.80m^. In this figure, the the line representing the sequence of 
circular orbits terminates at a value of J = S.OOfrf only for illustrative purposes — it is not the 
location of the innermost stable circular orbit. 

Once we have determined the location of the circular orbits for various values of angular 
momentum, then we may apply the variational principle to determine the angular frequency Q. 
This is achieved by once again using the program min. For example, imagine we are interested 
in determining the value of Q for the circular orbit associated with J = 3.00m^. We simply 
increase the angular momentum in min to a value of J = 3.001m^, and allow the code to search 
for a minimum value in the ADM mass. Once the program has converged to a solution and 
generated the minimum ADM mass associated with this new value of the angular momentum. 
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Figure 5.2: ADM mass curves and the corresponding sequence of circular orbits for n = 11 
grid points on a side and ADAPT — 10 adaptive levels. The values of J range from 2.90m^ to 
3.80m^. The sequence of circular orbits terminates at J = 3.00m^ only for illustrative purposes. 
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then the angular frequency may be determined via 

Q = (5.4) 

For this particular case of interest, we find that Q = 0.0407m~^. In this very fashion, the 
angular frequency can be determined for all circular orbits, up to and including the innermost 
stable circular orbit. 

As was mentioned above, we choose to normalize all of our quantities by means of the 
rest mass of a single hole, given by Eq. (|5.2|) . This is achieved by calculating the ADM mass 
of a single, isolated, boosted black hole with linear momentum P. This value of the linear 
momentum is exactly the same linear momentum each hole in the binary system has for angular 
momentum J and separation distance D. We believe this is a reasonable way to calculate the 
mass of a hole, as it is the mass due solely to the individual hole and its motion, and not due 
to the interaction with the other hole. Two quantities which we use to normalize the orbital 
parameters are the total rest mass of the system m, defined as 

m = 2Ej.est, (5.5) 
and the reduced mass of the system /i, defined as 

/i = ^-Erest- (5.6) 

It is important to note the above two definitions are valid only for equal mass black holes. 



5.1 Numerical Results of the Variational Principle 

We now present the data for three different resolutions in tabular form, and then discuss the 
agreement between the data and post-Newtonian expectations. 

In Table p.l|, the grid resolution was set to n = 11, with a total of ten adaptive levels. The 



variable J denotes the angular momentum of the system, and is measured in units of m^, where 
fn is the fixed bare mass of the holes. For all numerical simulations, we fix the value of fn to be 
equal to 1.0. The variable P is the linear momentum of each individual hole, and is measured 
in units of rn. The variable D is the coordinate separation distance between the holes, and is 
also measured in units of m. The Newtonian mass of the holes is denoted by M, is measured 
in units of m, and is defined via Eq. ( ^.31) . The ADM mass of the binary system is denoted 
as i^ADM, and is measured in units of m, and the angular frequency of the binary system is 
denoted as Q and is measured in units of fn~^. 

We also tabulate the data used to determine the rest mass i^rest of each individual hole 



for a particular value of angular momentum J in Table |5.2| . The grid resolution and adaptive 
level number are the same as Table 15.11. However, in Table 15.21, -Eadm is the ADM mass of 



the single boosted hole with linear momentum P, and -Erest is the resulting rest mass, derived 
from Eq. (|5.2| ). Also note this data was calculated with only six adaptive levels. We found, 
experimentally, the ADM mass changed by only one part in 10^ when the number of adaptive 
levels was reduced from ten to six. This reduced the execution time of the code considerably. 

In anticipation of comparing our results to post-Newtonian predictions, we calculate the 
binding energy of the binary system via 

Eh = EadM — 2-E'rest- (5.7) 
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Table 5.1: Orbital parameters for a binary black hole system: n = 11 grid points on a side, 
ADAPT = 10 adaptive levels. 
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Table 5.2: Single boosted black hole for the determination of the rest mass -Erest^ n = 11 grid 
points on a side, ADAPT — 6 adaptive levels. 
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Table 5.3: Normalized orbital parameters for a binary black hole system: n = 11 grid points 
on a side, ADAPT = 10 adaptive levels. 



We also normalize the binding energy, the angular momentum, the separation distance and the 
orbital angular frequency with m and fi as defined by Eqs. ( ^.5|) and (|5^) , respectively. This 
information is listed in Table f).3[ 

We also list the corresponding data for a higher resolution, where n = 19, in Tables 
and 0|. 



Finally, we list the data for n = 35 in Tables |5.7|, 5.8, and |5.9|. For this data, we used 



six adaptive levels which, as mentioned above, yields the same energy content as ten adaptive 
levels. 



5.2 Post-Newtonian Comparisons 

At this point, we will compare our numerical results to theoretical predictions from Newto- 
nian and post-Newtonian calculations. In particular, we compare our results to the (post)^- 
Newtonian predictions of Kidder et al. P|[, which are written in a convenient form in Cook 



|30[| . In brief, the expressions derived in the post-Newtonian approximation are expansions in 
v/c. The (post)^-Newtonian expressions are expanded out to powers of (v/c)^. 



5.2. POST-NEWTONIAN COMPARISONS 
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Table 5.4: Orbital parameters for a binary black hole system: n = 19 grid points on a side, 
ADAPT = 10 adaptive levels. 
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Table 5.5: Single boosted black hole for the determination of the rest mass £'rest: n = 19 grid 
points on a side, ADAPT — 6 adaptive levels. 
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Table 5.6: Normalized orbital parameters for a binary black hole system: n = 19 grid points 
on a side, ADAPT — 10 adaptive levels. 
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Table 5.7: Orbital parameters for a binary black hole system: n = 35 grid points on a side, 
ADAPT = 6 adaptive levels. 
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Table 5.8: Single boosted black hole for the determination of the rest mass fi'rest- n — 35 grid 
points on a side, ADAPT = 6 adaptive levels. 
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Table 5.9: Normalized orbital parameters for 
on a side, ADAPT = 6 adaptive levels. 



a binary 



black hole system: n — 



35 grid points 



5.2. POST-NEWTONIAN COMPARISONS 



91 



Cook rewrites the expressions of Kidder et al. to relate the normahzed binding energy 
E\y/fi, the normahzed angular momentum J/fim, and the normalized angular frequency mQ. 
To (post)^ order, these equations for an equal mass binary system are 



-Eb ^ _1 //xm\2 
~ 2 \ J J 



37 /um\2 1269 //im\4 



(5. 



and finally 



^ = -l(^r])2/3 



48 ^ ^ 384 ^ ' 



12^ ^ 18 ^ ^ 



(5.9) 



(5.10) 



In the above three equations, the first term in the square brackets is the Newtonian result, the 
second term is the (post)^/^-Newtonian result, and the third term corresponds to the (post)^- 
Newtonian result. 

We can also compare our results to a purely Newtonian equation relating the normalized 
binding energy E\y/fi to the normalized coordinate separation distance D/m. Although the 
range of validity of this equation is severely limited, it acts as a nice check of the asymptotic 
behavior of our numerical data as the separation distance of the holes becomes large. The 
Newtonian equation is 

^ = -1^. (5.11) 
^ 2D ^ ' 

In the following figures, we present our numerical results, compared to Newtonian and 
post-Newtonian expectations. 

Figure p.3| displays the normalized binding energy E]^/n versus the normalized angular mo- 
mentum J/fim. The solid line is the theoretical prediction given by Eq. ( |5.8|) . One notes the 
curves corresponding to n = 19 and n = 35 actually cross the theoretical prediction, as op- 
posed to asymptotically approaching the solid line. We believe this is due to the limited grid 
resolution of the data; if the grid density could be increased, we would expect closer asymptotic 
agreement with post-Newtonian results. 

Figure |5]^ displays the normalized binding energy i?b//^ versus the normalized angular 
frequency mQ. The solid line is the theoretical prediction given by Eq. ( p. 9] ). There are several 
interesting points to this figure. First, note the Newtonian regime of the numerical curves, 
corresponding to smaller values of mQ, appear to agree with the post-Newtonian prediction 
given by the solid line. There appears to be good agreement between the theoretical prediction 
and the two higher resolution curves up until mfl ^0.1. At this point, the curvature of the 
two higher resolution curves deviates from the theoretical prediction, and tends to more nega- 
tive values of the normalized binding energy. We attribute this to the fact that the system is 
becoming highly relativistic at this point, and higher order post-Newtonian effects would have 
to be considered to accurately predict the normalized binding energy. 

Figure p.5| displays the normalized angular momentum J/ fim versus the normalized angu- 
lar frequency niQ. The post-Newtonian prediction is given by Eq. (|5.10|) , and is denoted in the 



figure by the solid line. The curves indicate convergence at both the Newtonian and relativistic 
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5.2. POST-NEWTONIAN COMPARISONS 
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Figure 5.4: The normalized binding energy Ey^/ii versus the normahzed angular frequency mQ 
for various grid resolutions. 
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Figure 5.5: The normalized angular momentum J/iim versus the normalized angular frequency 
mil for various grid resolutions. 
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Figure 5.6: The normalized binding energy -Eb/yW versus the normahzed coordinate separation 
distance D/m for various grid resolutions. 



ends of the figure. 

Finally, Fig. |5.6| displays the normalized binding energy E]^/fi versus the normalized co- 
ordinate separation distance D/m. The solid line is the theoretical prediction dictated by 
Newtonian theory only, as given by Eq. (|5.11| ). Again, this figure's value lies only in large 
values of D/m, where the system is approaching Newtonian speeds. We can see from the 
figure that as we increase our grid resolution, our results do indeed asymptotically approach 
Newtonian theory. 



Before we compare our data to that of Cook and Baumgarte |3J] , we feel it is important 
once again to stress that there is some ambiguity as to what the "mass" of a black hole in a 
binary system means. Both Cook and Baumgarte associate the area of the apparent horizon to 
the mass of an individual hole, and hold the area of the apparent horizon fixed as they generate 
their sequence of circular orbits. We, on the other hand, chose to use the rest mass to describe 
the individual hole, and held the bare mass of each hole fixed as we generated our sequence of 
orbits. 

Despite the fact that we determine the normalized separation distance for our data, we 
must keep in mind that this is a coordinate separation distance, and not a proper separation 
distance. Hence, we can not compare our D/m to the proper separation distances of Cook and 
Baumgarte, primarily because of the fact that we do not know the locations of the apparent 
horizons in our geometries. However, we can get an approximate value of the proper separation 
distance of the innermost stable circular orbit by examining the quadrupole nature of the 
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Resolution D/m d/ Eadm 



n = 


11 


2.915 


3.078 


n = 


19 


2.143 


2.290 


n = 


35 


2.195 


2.349 



Table 5.10: The normalized coordinate separation distance D/m and the normalized separation 
distance (as measured at infinity) d/ExDM for three grid resolutions. 



field. Roughly speaking, the amplitude of the quadrupole moment of the geometry measured 
at r = oo may be approximated to be 

X.x ~ ^^admc?'. (5.12) 

o 

The variable d may be interpreted as the proper separation distance of two objects of mass 
|-Eadm- In reality, the amplitude of the quadrupole moment consists of two parts: a portion 
due to the two objects of mass -Erest, and a portion due to the correction in the conformal factor. 
We may write this quadrupole moment amplitude as 

^xx = ^-D^-Erest (5.13) 

The computer code moment calculates the contribution from the conformal factor correction 
T 

We may equate Eq. ( 5.12| ) and Eq. ( 5.13 ) to generate an expression for the approximate 



separation distance of the innermost circular orbit, as measured at infinity. We choose to 
normalize the separation distance d by the ADM mass of the system: 



d 2D^Erest + 8Iu 



Eadm V El 



ADM 



We present the normalized coordinate distance and the normalized separation distance as mea- 
sured at infinity in Table |5.10| . 



Table |5.11| lists the various parameters of interest corresponding to the ISCO, as listed in 



Baumgarte It is important to note Cook employed the conformal imaging approach 



with a two-sheeted geometry, while Baumgarte employed the three-sheeted puncture method. 
Both held the areas of the apparent horizons fixed as they generated their sequence of circular 
orbits. 

The agreement between our data and that of Cook and Baumgarte may lend some credence 
both to their method of approach, as well to the variational principle we employed. On one 
hand, our method is based on a mathematically derived variational principle for binary black 
holes, in which the variational principle dictates to us that we must hold the bare mass fixed, 
and not the area of the apparent horizon. This greatly simplifies the analysis, as one does 
not need to be concerned with the location of the apparent horizon, which can be a daunting 
numerical task PBI On the other hand, the close agreement of Cook and Baumgarte's results 
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Data 




J 1 jjim 




Cook 


-0.09030 


2.976 


0.172 


Baumgarte 


-0.092 


2.95 


0.18 


This work 


-0.10792 


2.937 


0.1788 



Table 5.11: Comparison of the orbital parameters of Cook, Baumgarte, and the = 35 results 
of this work. 



with ours may indicate that there is some interesting physics yet to be discovered concerning 
the relationship between the variational principle we employed and the methods employed by 
Cook and Baumgarte. 



5.3 Other Numerical Results 
5.3.1 The Lapse Function 



As is indicated by the variational principle of Blackburn and Detweiler given by Eq. ( |3.23| ) 
in §@, we may also generate approximate values for the ratio of the lapse functions on the 
upper and lower sheets of our three-sheeted geometry. Recall the lapse function is a measure 
of the proper time elapsed as one moves from one hypersurface to the next. In particular, the 
variable in Eq. ( |3.23| ) is defined as 

^upper sheet 

where n is the respective lapse on an upper or lower sheet of the geometry. If we choose the 
lapse on the upper sheet to be normalized to nupper sheet = 1) then we may interpret A^ to be a 
measure of the lapse on the lower sheets. 

Determination of A^ numerically is not particularly straight forward. Recall the variational 
principle dictates A^ is determined via 

iV.-i^, (5.16, 

for fixed values of the angular momentum J. It is not a simple task to carry out the variation 
indicated by Eq. ( |5.16|) , simply because the bare mass m is in some sense the fundamental 
"unit" associated with the physical quantities in the computer code. 

This problem is side stepped via the following procedure. Assume a particular choice for the 
bare mass m has a value of ttibL, where me is simply a number, and L is the unit associated 
with the mass. Likewise, assume a particular choice of the angular momentum to be JL^, where 
again J is simply a pure number. These two choices result in an ADM mass with a value of 
EL, where once again E is a pure number. 

Now, imagine incrementing the angular momentum to a new value, given by (J -|- 6J)L'^, 
while holding the value of the bare mass fixed. This in turn yields a new value for the ADM 
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mass, given as {E + 6E)L. This is not quite in line with the method the variational principle 
indicates — to determine the lapse, we should be holding the angular momentum fixed while 
varying the bare mass. In order to achieve this, we imagine a change in the units used to 
describe the quantities mentioned above. In particular, to hold the angular momentum fixed 
we demand JL^ = (J + SJ)L''^, where L' is the new unit system. This indicates a rescaling of 
the units will take place, namely L = J/[J + 5J)L' = XL', where A is the scale factor. 

With this scale change in our units, this implies our initial bare mass m^L becomes m^AL'. 
Likewise, the ADM mass associated with the change in the angular momentum becomes {E + 
6E)\L'. Now that the rescaling has taken place, we drop the prime superscript on our units. 
Once this is done, we may write an expression for the lapse function. 

The bare mass was normalized to a value of 1.0 in all computer code runs. If we denote the 
initial angular momentum and it's corresponding ADM mass by (J, -Eadm)? and the incremented 
angular momentum and it's corresponding ADM mass by {J' , E'j^y)m) y then the lapse function 
is given by 

]\T = ^ ^-^ADM ~ Eadm (5 17) 

2 1-A ' ^ ■ ^ 

where A is the scale factor defined as 

A-l/|. (5.18) 

We now present the numerical data for the lapse function, which is a measure of the fiow 
of time on the lower sheets, keeping in mind we normalize the lapse on the upper sheet to take 
a value of 1.0. We list the dimensionless coordinate separation distance D/m and the lapse 
for the three different resolutions in Tables |5.12| , |5.13| , and |5.14| . 



The data from Tables |5.12| , |5.13| , and f).14\ are displayed in Fig. [5.7| . From inspection of 



the figure, the data are all in close agreement with one another. The interpretation of the 
data is as follows: When the holes are separated by large distances, then the geometry has 
approximately the same lapse as a completely isolated hole. This corresponds to an asymptotic 
limit ofA^ 1 as D/m oo, which the figure demonstrates. However, as the two holes 
come closer together, the gravitational interaction increases, causing the relativistic effects to 
increase as well. However, on the lower sheets, the isolated holes remain unchanged (the bare 
masses are fixed, and the holes on the lower sheet have no linear or angular momentum ^). 
Because the geometry on the lower sheets is unchanging, the lapse function on the lower sheets 
is unchanging as well. Hence, as the value of N decreases with a decreasing separation distance, 
this corresponds to the proper time on the upper sheet lagging the proper time on the lower 
sheet. For instance, when the holes are at the innermost stable circular orbit, for a single tick 
of the clock on the upper sheet, the clock on the lower sheet has undergone approximately 1.4 
ticks. 



5.3.2 Gravitational Waves 

As mentioned in § ([4.4.4| ), we developed a method for determining the multipole moments of 
the gravitational field, denoted as ^im- It is possible to relate these multipole moments to 
the reduced quadrupole moments Xij, which in turn yields information about the gravitational 
wave content of the system. First, let us briefiy review some definitions. Recall from Eq. ( ^.681 ) 
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Q fil "i"^ 


n 


Q41 3 


8.9884 


0. 


,9367 


8.3433 


0. 


,9313 


7.6740 


0. 


,9247 


6.9717 


0. 


,9162 


6.2174 


0. 


,9048 


5.3736 


0. 


,8879 


4.3194 


0. 


,8572 


4.0437 


0. 


,8465 


3.7081 


0. 


,8313 


2.9152 


0. 


,7822 



Table 5.12: The normalized coordinate separation distance D/m and the lapse function for 
n — 11 grid points on a side, with ADAPT — 10 adaptive levels. 
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5 
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4 
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0, 
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2 


.8974 


0, 


.7765 


2 


.2963 


0, 


.7222 


2 


.2363 


0, 


.7155 


2 


.1427 


0, 


.7045 



Table 5.13: The normalized coordinate separation distance D/m and the lapse function N for 
n = 19 grid points on a side, with ADAPT —10 adaptive levels. 
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D/m 




N 


12.8138 


0. 


,9506 


11.8462 


0. 


,9463 


10.9079 


0. 


,9415 


9.9990 


0. 


,9359 


9.1189 


0. 


,9296 


8.2654 


0. 


,9221 


7.4344 


0. 


,9133 


6.6196 


0. 


,9025 


5.8108 


0. 


,8889 


4.9896 


0. 


,8705 


4.1166 


0. 


,8432 


3.0352 


0. 


,7885 


2.4984 


0. 


,7455 


2.1948 


0. 


,7134 



Table 5.14: The normalized coordinate separation distance D/m and the lapse function N for 
n = 35 grid points on a side, with ADAPT = 6 adaptive levels. 
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Figure 5.7: The lapse function N versus the normahzed coordinate separation distance D/m 
for three resolutions. 
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we defined the multipole moments as 



(5.19) 



where ip^ are polynomials related to the spherical harmonics, and the standard definition of the 
reduced quadrupole moment is 



I- = 
-i-ij — 



P 



_K 2 



(5.20) 



where the volume integral is performed over all space [ITU 



We may rewrite Eq. ( |5.19| ) as a volume integral, which in turn allows us to relate the 
multipole moments and the reduced quadrupole moments lij. Specifically, the only non- 
zero radiating modes are of the form 



J 



-Z 



yy 




(5.21) 



The computer code moment calculates the multipole moment $22, which allows us to 
calculate the gravitational wave luminosity via the standard quadrupole moment formula [|1^ 
given by 



_ dE ADM _ 1 ••• \ 
L = - - 



(5.22) 



where the three dots above the reduced quadrupole moments indicate three time derivatives, 
and the angled brackets indicate averaging over several orbital periods. Summation is implied 
over all spatial indices i and j. 

Because of the quadrupole nature of the radiation, we may assume a time dependence of 
the form cos(2fit), which in turn implies the three time derivatives on each of the reduced 
quadrupole moments may be replaced by {2Q)^ in the above equation for the luminosity. 

We calculate the reduced quadrupole moments by assuming they consist of two parts: one 
part is due to the existence of the point masses (which correspond to the black holes of mass 
i^rest), and a second part which is due to the existence of the nonlinear correction to the 
conformal factor (which corresponds to the numerical value of $22)- It is then straightforward 
to write an expression for the gravitational wave luminosity in terms of the rest masses of the 
black holes -Erest, the coordinate separation distance between the holes D, the orbital angular 
frequency Q, and the multipole moment $22: 



L 



128 



^^^i^Lt + l/|^^i^rest$22 + |($22)^ 



(5.23) 



The first term of Eq. (|5.23| ) is the expected Newtonian result, and the remaining terms are the 
relativistic corrections. 

Tables |5.15| , |5.16| , and |5.17| display various quantities derived from the gravitational wave 
luminosity for the three different grid resolutions we have been studying. All three tables 
display the normalized coordinate separation distance D/m, the gravitational wave luminosity 
L as given by Eq. ( ^.23|) , the expected Newtonian gravitational wave luminosity Ln given 
by only the first term of Eq. ( p.23[ ), the energy radiated per orbit £'/orbit, and the time 
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Table 5.15: Gravitational wave data for a black hole binary system with n = 11 grid points on 
a side and ADAPT =10 adaptive levels. 



scale t the binary system will spend at a particular separation distance. A few important 
things to note before we display our numerical results is the Newtonian expectation of the 
luminosity is determined strictly via Kepler's laws, and not from the variational principle for 
the orbital angular frequency. Also, the energy radiated per orbit is calculated by multiplying 
the luminosity and the orbital period: i?/orbit = ^L. Finally, the time scale of the orbit was 
determined by dividing the absolute value of the binding energy by the luminosity: t = 



We also present the data from Tables |5.15| , |5.16| and |5.17| in graphical form. First, Fig. |5^ 
displays the luminosity L as a function of the normalized separation distance D/m. The three 
different resolutions are displayed, as well as the Newtonian expectation for the gravitational 
wave luminosity. Figure |5]^ indicates relatively good agreement in both the Newtonian domain 
as well as the highly relativistic. In particular, the numerical results appear to be converging 
to a limit which is in line with the Newtonian expectation. Also, the numerical results are 
in excellent agreement with each other as one examines the curves as the separation distance 
closes to the innermost stable circular orbit. 



We now present Fig. E]^, the energy radiated per orbit i^^/orbit versus the absolute value 
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Table 5.16: Gravitational wave data for a black hole binary system with n = 19 grid points on 
a side and ADAPT — 10 adaptive levels. 
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6. 


,13E- 


-05 


1, 


.29E- 


■04 


1, 


.lOE-02 


5, 


.45E+02 


4.1166 


1. 


,17E- 


-04 


3, 


.38E- 


-04 


1, 


.65E-02 


3, 


.21E+02 


3.0352 


2. 


,93E- 


■04 


1, 


.55E- 


■03 


2, 


.90E-02 


1, 


.52E+02 


2.4984 


4. 


,81E- 


■04 


4, 


.llE- 


■03 


3 


.87E-02 


1 


.03E+02 


2.1948 


6. 


,41E- 


-04 


7, 


.85E- 


■03 


4, 


.53E-02 


8, 


.45E+01 



Table 5.17: Gravitational wave data for a black hole binary system with n = 35 grid points on 
a side and ADAPT = 6 adaptive levels. 
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Figure 5.8: The gravitational wave luminosity L as a function of the normalized separation 
distance D/m. 
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Figure 5.9: The energy radiated per orbit i^^ /orbit as a function of the absolute value of the 
non- normalized binding energy E-^,. 



of the non- normalized binding energy E^y. Once again, all three resolutions are displayed. The 
figure shows the numerical results are converging, and the data gives an approximate view of 
the number of orbits the system will complete at a particular separation distance. For instance, 
examining the n = 35 curve, when the separation distance is D/m = 12.8138, the ratio of 
the binding energy to the energy radiated per orbit is on the order of 20, which indicates the 
system will complete approximately 20 orbits at this separation distance. Likewise, when the 
separation distance is D/m = 2.1948, the ratio of the binding energy to the energy radiated 
per orbit is on the order of 1, which indicates the system will complete approximately one orbit 
at this separation distance before the final plunge. 

We may get an approximate idea of the time scale involved with the evolution of our 
system by examining Fig. |5.10| , which displays the time scale of radiation reaction versus the 
normalized separation distance D/m. The figure shows the data is converging as the grid 
resolution is increased, and all three resolutions agree relatively well with each other as the 
holes approach the innermost stable circular orbit. As indicated in the figure, the holes will 
spend approximately t ^ 100m at the innermost stable circular orbit before the final plunge 
and merger. 



5.3. OTHER NUMERICAL RESULTS 
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5.4 Discussion 

As demonstrated, our variational principle for describing binary black hole systems in the 
framework of the three sheeted Brill geometry greatly simplifies numerical implementation. 
Due to the necessity of holding the bare masses of the holes fixed, we did not concern ourselves 
with calculations involving the apparent horizon. Comparisons of our numerical results with 
that of Cook ||30| and Baumgarte |24[ would seem to point to some interesting mathematical 



physics: a potentially interesting project would be to find a transformation law for variational 
principles which hold the bare mass fixed to variational principles in which the apparent horizon 
area is held fixed. 

Another advantage our analysis has over previous work is the extraction of information 
pertaining to the gravitational wave content of the geometry. This information yields estimates 
pertaining to the dynamics of the system, which is of vital interest to the community involved 
with gravitational wave detectors like LIGO. 



Chapter 6 
Conclusion 



In an era in which numerical relativity is attempting to solve the full set of nonlinear Einstein 
equations, we feel numerical simulations based upon mathematically sound variational princi- 
ples is a step in the right direction. In general, they greatly simplify the algorithms involved 
in calculations: rather than attempting to solve the full set of Einstein equations one simply 
need to minimize a single function after satisfying the constraint equations. Another pleasing 
property of variational principles is they provide a road map for deriving accurate estimates 
of orbital parameters for binary systems, which may in turn be used to generate waveform 
templates for gravitational wave observatories. 

Assuming the constraint equations are satisfied, our method requires only the minimiza- 
tion of the effective mass to ensure an approximate solution to the quasi- stationary Einstein 
equations, as well as the equations governing the irrotational motion of the neutron stars. Our 
treatment of irrotational binary neutron stars yields accurate estimates of the mass, gravita- 
tional radiation, and orbital frequency of the system — quantities necessary to construct viable 
waveform templates for gravitational wave detectors [Q. The variational principle also serves 
as a relatively simple way to test many of the current conformally flat treatments of binary 



neutron stars investigated by other authors jlSl, p!6|, |21|, P2|, ^ 



With the power of nonlinear adaptive multigrid techniques, we demonstrated the use of 
a variational principle for the ADM mass for binary black holes. The variational principle 
ensures solutions to the quasi-equilibrium Einstein equations for fixed values of the angular 
momentum and the black hole bare masses. We took advantage of the simplifying assumptions 
of a conformally flat metric, in which the conformal extrinsic curvature is trace- free. This 
introduced some additional energy into the system, which limits this geometry's ability to 
model astrophysically realistic black hole systems. Despite this, the geometry acted as a proving 
ground for the variational principle. We employed the "puncture" method to describe the black 
holes. This greatly simplified the numerical analysis by allowing the three-sheeted geometry to 
be compactified into R^, covered by a regular Cartesian grid. 

It is important to reiterate our treatment holds the bare masses of the holes and the angular 
momentum of the system fixed as we generate our sequence of circular orbits. This method is 
based upon a mathematically derived variational principle, and is algorithmically more desir- 
able than other methods in which the apparent horizon area is held fixed |^,^. Agreement 
between our results and the fixed horizon area results of Baumgarte and Cook may indicate a 
correspondence between the two different approaches. 

We demonstrated agreement between our numerical results and post-Newtonian approxima- 
tions for various orbital parameters, as well as generated lapse function and gravitational wave 
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information for the system. The gravitational wave data may in turn facihtate gravitational 
wave observatories in their identification of astrophysical binary systems. 



Computer Code for the Black Hole 
Variational Principle 



In this appendix, we list all of the computer code we developed in C++ to solve the Hamiltonian 
constraint and subsequently determine sequences of quasi-stationary circular orbits by means of 
employing the variational principle for the ADM mass. Effort will be made to list the program 
functions in order of relative importance, with as many comments as possible to clarify the 
purpose of the individual functions. We also note that the header files included with each 
of these individual programs are the standard files assert. h, fstream.h, iostream.h, math.h 
and iomanip.h. Two additional header files, written by Steven Detweiler and which will be 
listed later, are grid.h and adapt. h. Any additional header files will be listed in the individual 
programs. 

It is important to note the parameter ADAPT, mentioned in § (|4.3| ), is called NMG (for 
non-multigrid) in the code that follows. 

We begin by listing the program min, which finds a minimum in the ADM mass: 

// min.cxx 

// Determines the minimum value of the ADM mass 
// Designed for Variational Principle 

// Code decreases the spacing between punctures with fixed 
// angular momentum J 

// Calculates ADM mass, and saves it to a file 

// Galerkin operator to be used on *ALL* levels 

// symmetries built into relaxation and residual code! 

// This is the "true" adaptive multigrid code for the non-linear 

// equation describing the conformal factor of a black hole 

// binary system, using the puncture method described in 

// Brandt and Brugmann. 

//Be careful of the largest grid you have to force the physical 
// size of the largest grid to a certain value in order to 
// maintain consistency (smaller grids have n+2 grid points, 
// where as the largest has n grid points) 

// Relax on interior points only on each non-mg level 
// Use Robin conditions on the mg levels 
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COMPUTER CODE 



11 This code solves for u, where Phi = 1/alpha + 1 + u. 
// allows the Robin boundary conditions to be employed 

//Be sure to run on wombat! 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 

#include "adapt. h" // contains all function prototypes 

// Coefficients of Releixation schemes 



This 



//Regular Del"2 Operator 
extern const double DELO = 6.0; 
extern const double DELI = 1.0; 

extern const double DEL2 = 0.0; 

extern const double DELS = 0.0; 



// coeff for relaxation point 

// coeff for relaxation point 

// once removed 

// coeff for relaxation point 

// twice removed 

// coeff for relaxation point 

// thrice removed 



//Galerkin Operator for all points of the coarser grid 



extern 


const 


double 


GALO 




-8.0/3; 


// coeff 


for relaxation 














// point 




extern 


const 


double 


GALl 




0.0; 


// coeff 


for relaxation 














// point 


once removed 


extern 


const 


double 


GAL2 




1.0/6; 


// coeff 


for relaxation 














// point 


twice removed 


extern 


const 


double 


GALS 




1.0/12; 


// coeff 


for relaxation 














// point 


thrice removed 


extern 


const 


double 


BAREMl 


= 1.00; 


// bare 


mass of hole #1 


extern 


const 


double 


BAREM2 


= 1.00; 


// bare 


mass of hole #2 


extern 


const 


double 


PI = 


4 


0*atan(l . 


0); 




extern 


const 


double 


Yl = 





0*BAREM1 ; 


// Note that X,Y,and Z 














// are 


all >0 


extern 


const 


double 


Y2 = 





0*BAREM1 ; 






extern 


const 


double 


Zl = 





0*BAREM1 ; 






extern 


const 


double 


Z2 = 





0*BAREM1 ; 







extern const double PXl = 0.00*BAREM1; 
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extern const double 
extern const double 
extern const double 



PX2 = 0.00*BAREM1; 
PZl = 0.0*BAREM1; 
PZ2 = 0.0*BAREM1; 



extern const 
extern const 
extern const 

extern const 
extern const 
extern const 



double SXl 
double SX2 
double SYl 

double SY2 
double SZl 
double SZ2 



= 0.0*BAREM1 
= 0.0*BAREM1 
= 0.0*BAREM1 

= 0.0*BAREM1 
= 0.0*BAREM1 
= 0.0*BAREM1 



extern const int NMG =6; // # of non-mg levels 
extern const int MG = 5; // # of mg levels 



extern const int PMAX = 8; 



//sets the number of v-cycles 



extern const double j = 3.00/(BAREMl*BAREMl) ; // dimensionless 

// # to hold J 

// fixed 
//extern double J = 1.0; 

extern const double J = j*BAREMl*BAREM2; // Fixed angular 

// momentum of 
// system 

// 

int mainO 
{ 

using namespace Parameters; 
using namespace Energy; 

// MG, NMG, j, ax, bx, and cx must be specified prior!! 
double ax = 4.1*BAREM1 



double bx = 4.4*BAREM1 
double cx = 4.7*BAREM1 



// left most location on 
// curve 

// center location on 
// curve 

// right most location on 
// curve 



const double TOL = l.Oe-6; // TOL ~ sqrt (machine error) 



double fmin, xmin; 



f or ( J= j *BAREM1*BAREM2 ; J<=3 . 0*BAREM1*BAREM2 ; 
J=J+0.01*BAREM1*BAREM2) { 
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// see Numerical Recipes for brent. c code 

fmin = brent (ax, bx, cx,newADMmass ,TOL,&xinin) ; // minimum ADM 

// mass 

cout « "Circular orbit for J = " « J « " at D = " 
« xmin « " with E(adm) = " « fmin « endl; 

of stream output; 

output . open ( "minimum-orbits .dat" , ios : : app I ios : : ate) ; 
//appends to end of file 

// prints out J, sep. dist., Newtonian mass, Newtonian binding 
// energy, and ADM mass 

//double m = 2*M1; 

//double mu = 1.0/2*M1; 

//double Jdivmmu = J/ (m*mu) ; 

//double Eb = -(fmin - 2*M1) ; 

//double Ebdivmu = Eb/mu; 

double Eadm = fmin; 

output « "# J, D, P, M, Eadm" « endl; 

output « J « setprecision(12) « " " « xmin 

« " " « PYl « " " « Ml « " " « Eadm 

« endl; 

} // end for - J 
} // end main 

Another useful program is VP, which allows us to generate "effective potential" curves, 
plotting the ADM mass as a function of puncture separation distance for fixed values of angular 
momentum: 

// VP.cxx 

// Designed for Variational Principle 

// Code decreases the spacing between punctures with fixed 
// angular momentum J 

// Calculates ADM mass, and saves it to a file 

// Galerkin operator to be used on *ALL* levels 

// symmetries built into relaxation and residual code! 

// This is the "true" adaptive multigrid code for the non-linear 

// equation describing the conformal factor of a black hole 

// binary system, using the puncture method described in 

// Brandt and Brugmann. 

//Be careful of the largest grid you have to force the 
// physical size of the largest grid to a certain 
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// value in order to maintain consistency (smaller grids have 
// n+2 grid points, where as the largest has n grid points) 

// Relax on interior points only on each non-mg level 
// Use Robin conditions on the mg levels 

// This code solves for u, where Phi = 1/alpha + 1 + u. This 
// allows the Robin 

// boundary conditions to be employed 

//Be sure to run on wombat! 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 

#include " adapt. h" // contains all function prototypes 



// Coefficients of Relaxation schemes 



//Regular Del"2 Operator 
extern const double DELO = 6.0; 
extern const double DELI = 1.0; 

extern const double DEL2 = 0.0; 

extern const double DELS = 0.0; 



// coeff for relcLxation point 

// coeff for relaxation point 

// once removed 

// coeff for relcLxation point 

// twice removed 

// coeff for relcLxation point 

// thrice removed 



//Galerkin Operator for all points of the coarser grid 
extern const double GALO = -8.0/3; // coeff for relaxation 

// point 

extern const double GALl =0.0; // coeff for relaxation point 

// once removed 

extern const double GAL2 = 1.0/6; // coeff for relaxation point 

// twice removed 
extern const double GALS = 1.0/12; // coeff for relaixation 

// point thrice removed 

extern const double BAREMl = 1 . 00 ; // bare mass of hole #1 
extern const double BAREM2 =1.00; // bare mass of hole #2 



extern const double PI = 4.0*atan(l .0) ; 
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extern const double Yl = 0.0*BAREM1; 

extern const double Y2 = 0.0*BAREM1 
extern const double Zl = 0.0*BAREM1 
extern const double Z2 = 0.0*BAREM1 



// Note that X,Y,and Z 
// are all >0 



extern const double PXl 

extern const double PX2 
extern const double PZl 
extern const double PZ2 



. 00*BAREM1 ; 

. 00*BAREM1 ; 
. 0*BAREM1 ; 
. 0*BAREM1 ; 



extern 


const 


double 


SXl 


= 


0*BAREM1 ; 


extern 


const 


double 


SX2 


= 


0*BAREM1 ; 


extern 


const 


double 


SYl 


= 


0*BAREM1 ; 


extern 


const 


double 


SY2 


= 


0*BAREM1 ; 


extern 


const 


double 


SZl 


= 


0*BAREM1 ; 


extern 


const 


double 


SZ2 


= 


0*BAREM1 ; 



extern const int NMG = 6; // # of non-mg levels 

//extern int MG = 3; // # of mg levels 

extern const int MG = 5; // # of mg levels 

extern const int PMAX = 8; //sets the number of v-cycles 



extern const double j = 2.962/(BAREMl*BAREMl) ; //dimensionless 

// # to hold J 
// fixed 

//extern double J=1.0; // Fixed angular momentum of system, 

// but give initial arb. value 

extern const double J = j*BAREMl*BAREM2; // Fixed angular 

// momentum of 
// system 



// 



int mainO 
{ 

using namespace Parameters; 



for(MG = 3; MG <= 3; MG++) { 

for (J = j*BAREMl*BAREM2; J >= 2 . 961*BAREM1*BAREM1 ; 
J = J-0.001*BAREM1*BAREM2) { 

double sepdist = 8.5*BAREM1; // separation distance 

while (sepdist>=3.6*BAREMl) { // puncture shouldn't 

// merge . . . 
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setup (sepdist) ; // determines parameter values 
checkparam(sepdist) ; // checks parameters for 

// consistency 
newADMmassO ; // iterates to find M1,M2, then 

// solves, writes to file... 
checkparam(sepdist) ; // checks parameters for 

// consistency 

sepdist = sepdist - 0.3*BAREM1; //decrement puncture 

// positions 

} // end - while sepdist 

} // end - for J 
} // end - for MG 
} // end main 

The following program, newADMmass, is the "workhorse" program, and contains most of 
the functions used to solve the Hamiltonian constraint: 

// newADMmass . cxx - portion of code which calculates correction 
// to conformal factor and the corresponding ADM mass 

#include <assert.h> 

#include <f stream. h> 

#include <stdio.h> // C header file for sprintf 

#include <iostream.h> 

#include <iomanip.h> 

#include <math.h> 

#include "grid.h" 

#include "adapt. h" 



void newADMmass (void) { 

extern double DELO, DEL 1,DEL2, DELS; 

extern double GALO, GAL 1,GAL2, GALS; 

extern int NMG, MG, PMAX; 

extern double BAREMl, BAREM2, PI; 

extern double J; 

extern double Y1,Y2,Z1,Z2; 

extern double PXl ,PX2,PZ1 ,PZ2; 

extern double SX1,SX2,SY1,SY2,SZ1,SZ2; 

using namespace Parameters; 



// note that i = corresponds to the finest grid 
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AGridSD v[NMG+l] ; // v[x] goes from to x-1 

AGridSD ving[MG] ; // v denotes a previous best solution, 

// except at smallest level 
AGridSD r [NMG] ; // r denotes residual 
AGridSD rmg [MG] ; 

AGridSD s [NMG+1] ; // s denotes source 
AGridSD smg [MG] ; 

AGridSD a [NMG] ; // a denotes a dummy array associated 

// with corrections 

AGridSD amg [MG] ; 

AGridSD e [NMG+1] ; // e denotes an error 

AGridSD emg[MG] ; 

AGridSD u [NMG+1] ; // u denotes the best solution 
AGridSD umg[MG] ; 

AGridSD alpha [NMG+1] ; // alpha and beta are geometrical 

// quantities 

AGridSD alphamg [MG] ; 
AGridSD beta [NMG+1] ; 
AGridSD betamg [MG] ; 

AGridSD psi [NMG+1]; // psi = 1 + u, u = var code solves 

// for, psi = correction to conformal 
// factor 

AGridSD uold[l] ; // dummy arrays for error analysis 
AGridSD unew[l] ; 

double majxsize = 1 .0*pow(2,NMG)*SCALE; // ensures largest 

// grid matches with 
// smallest grid 



for(int i=0;i<MG;i++) { // allocate memory for 

// mg arrays 

int n=(int) (pow(2,MG-i)+l) ; // must be defined for 

// i<MG 

vmg[i] . reset (n,mcLXsize) ; 
rmg[i] . reset (n,maxsize) ; 
smg[i] . reset (n,maxsize) ; 
aing[i] . reset (n,maxsize) ; 
umg[i] . reset (n,maxsize) ; 
emg[i] . reset (n,mcLXsize) ; 
alphamg [i] .reset (n,maxsize) ; 
betamg [i] . reset (n,maxsize) ; 

} 

forCint i=0;i<NMG;i++) { 

int n=(int) (pow(2,MG)+S) ; // adds 2 grid points to 

// non-mg arrays 
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v[i] .reset (n,pow(2, i)*LEN) ; // must be defined for i<NMG 

u[i] .reset(n,pow(2,i)*LEN) ; 

r[i] .reset(n,pow(2,i)*LEN) ; 

s [i] .reset (n,pow(2, i) *LEN) ; 

a[i] . reset (n, pow(2, i)*LEN) ; 

e [i] .reset (n,pow(2, i)*LEN) ; 

alpha[i] .reset(n,pow(2,i)*LEN) ; 

beta[i] . reset (n,pow(2 , i) *LEN) ; 

psi [i] .reset (n,pow(2, i)*LEN) ; 

if(i==0) { 

uold[0] . reset (n,LEN) ; 

unew [0] . reset (n , LEN) ; 

} 



int n=(int) (pow(2,MG)+l) ; 

v[NMG] .reset (n,maxsize) ; // v[NMG] must be handled 

// carefully 

u[NMG] .reset (n.maxsize) ; // u[NMG] must be handled 

// carefully 

e [NMG] .reset (n,maxsize) ; // due to different # of grid 

// points 

s [NMG] .reset (n,maxsize) ; // from one level to the next 
alpha [NMG] . reset (n,maxsize) ; 
beta [NMG] . reset (n.mcixsize) ; 
psi [NMG] . reset (n,maxsize) ; 



double uoldvalue, unewvalue; 

double uerror = 1.0; 
int counter = 0; 



// old and new values of u at 
// puncture location 
// initilize to arbit. value 
// initilize to zero 



// initialize Ml 

Ml = 2.0*X1*( -1.0 + sqrt( 1.0 + 1 . 0/Xl*BAREMl ) ); 

// initialize M2 

M2 = 2.0*X1*( -1.0 + sqrt( 1.0 + 1 . 0/Xl*BAREM2 ) ); 



while (uerror>=10E-6) { 



for (int i=0;i<=NMG;i++) { 
newbeta (alpha [i] ,beta[i] ) ; 



// use for 2 BH's, boosted 
//to each other, with 
// spin, etc . . . 



f illsource(s [0] ,v[0] , alpha [0] , beta [0] ) ; // source info 

//on finest grid 
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forCint p=0;p<PMAX;p++) { // p is the # of 

// total sweeps 

cout « "Sweep #" « p+1 « endl; 
int i; 

for(i=0; i<NMG; i++) { 
if(i!=0) i 

zerointerior(u[i] ) ; // this takes restricted 

// interior solution 
add(u[i] ,v[i] ,u[i] ) ; // and adds it to the exterior 

// solution 
copy(v[i] ,u[i] ) ; // copies solution into v 
} 

/j|es(:**going to larger levels************************/ 
// relax on interior n-3 grid pts only 
newrelax(u [i] ,v[i] ,s [i] ,alpha[i] ,beta[i] ) ; 
newresidual (r [i] , u [i] , v [i] , s [i] , alpha [i] , beta [i] ) ; 
// find residual everywhere 

symadaptrstrct(u[i+l] ,u[i] ) ; // restrict solution to 

// larger level 

s [i+1] . setZeroO ; // zero out source on 

// larger level 

// must take into account beta* (1+alpha) "-6 term 

// from V. . . 

fillsource(s[i+l] ,v[i+l] ,alpha[i+l] ,beta[i+l]) ; 

psi [i+1] . setZeroO ; // zero out temp array 

newresidual (psi [i+1] ,u[i+l] ,v[i+l] ,s[i+l] , 

alpha[i+l] ,beta[i+l] ) ; // find source 
s [i+1] . setZeroO ; // ensure source is zeroed 

copyCs [i+1] ,psi [i+1] ) ; // copy source from temp 

// array in to s[i+l] 
psi [i+1] . setZero () ; // zero out temp array 

symresrstrctCs [i+1] ,r [i] ) ; // fill interior dummy 

// source with restricted 
// residual 

symadaptrstrct (v [i+1] ,u[i]) ; 

/********end of larger levels*******************/ 

} 

copy(smg[0] ,s [NMG] ) ; // copy info into mg arrays 

copy(alphamg[0] , alpha [NMG] ) ; 
copy(betamg[0] , beta [NMG] ) ; 
copy(umg[0] ,u[NMG] ) ; 
copy (v [NMG] ,u[NMG]) ; 
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copyCvmgCO] ,v[NMG]) ; 

// Now do usual multigrid on largest, finest using Robin 
// conditions 

forCint k=0;k<16;k++) { 
for(i=0; i<MG;i++) { 

if(i!=0) copy(vmg[i] ,umg[i] ) ; // copy best solution 

// into V 

if(i<MG-l) { 

newrela:x(umg[i] ,ving[i] ,smg[i] ,alphamg[i] ,betamg[i]); 
newresidual(rmg[i] ,umg[i] ,vmg[i] ,smg[i] , 

alphamg [i] , betamg [i] ) ; 
symrstrct(umg[i+l] ,umg[i] ) ; // rstrct solution to 

// larger, coarser 
symrstrct(smg[i+l] ,rmg[i] ) ; // rstct residual to 

// largest, coarser 
symrstrct (alphamg [i+1] , alphamg [i] ) ; 
symrstrct (betamg [i+1] , betamg [i]) ; 

} 

else { 

copy(vmg [i] ,umg [i] ) ; // copy best solution to v 

for(int j=l; j<8; j++) { 

newrelax(umg [i] ,vmg[i] ,smg[i] , alphamg [i] ,betamg[i]); 

newresidual(rmg[i] ,umg[i] ,vmg[i] ,smg[i] , 

alphamg [i] , betamg [i] ) ; 

} 

} 

} 

// reconstruct the solution on finer, largest grid 
for (i=MG-l; i>0; i— ) { 

subtract (emg [i] ,umg[i] ,vmg[i]); 

interp(amg[i-l] ,emg[i] ) ; // interp to finer, save 

// to amg 

update (umg [i-1] ,amg[i-l] ) ; // update solution 
newrelax(umg[i-l] ,vmg[i-l] ,smg[i-l] , 

alphamg[i-l] ,betamg[i-l] ) ; 
newresidual(rmg[i-l] ,umg[i-l] ,vmg[i-l] ,smg[i-l] , 

alphamg [i-1] , betamg [i-1] ) ; 

} 

} //end for-k 



// At this point umg[0] contains the best soln. on largest, 
// finest grid 
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/******* method tacks on best solution to exterior, 
/******* yields same results as correction method 
copy(u[NMG] ,umg[0] ) ; // copy solution 

subtract (e [NMG] ,u[NMG] ,v[NMG]) ; // determine error on 

// largest grid 
newresidual(r[NMG] ,u[NMG] ,v[NMG] ,s[NMG] , 

alpha [NMG] , beta [NMG] ) ; 

for(i=NMG;i>0;i— ) { 

if (p!=PMAX-l) zeroexterror(v [i] ) ; 

adaptinterp(a[i-l] ,e [i] ) ; // adapt-interpolate correction 

// to smaller grid 

update (u [i-1] , a [i-1] ) ; // update correction on smaller 

// grid 

psi [i-1] . setZeroO ; // zero dummy array 

adaptinterpCpsi [i-1] ,u[i] ) ; // adaptinterp large solution 

// into small array 
zeroexterior(u[i-l] ) ; // zero the exterior of small 

// solution 

zerointeriorsolnCpsi [i-1] ) ; // zero the interior of 

// large solution 
update (u [i-1] , psi [i-1] ) ; // update small solution with 

// exterior solution 

psi [i-1] . setZero ; 

newrelax(u[i-l] ,v[i-l] ,s [i-1] ,alpha[i-l] ,beta[i-l] ) ; 
newresiduaKr [i-1] ,u[i-l] ,v[i-l] ,s[i-l] , 

alpha[i-l] ,beta[i-l] ) ; 
subtract(e[i-l] ,u[i-l] ,v[i-l] ) ; // determine the error 

} 

/***********end of exterior solution method**************/ 

/ ****** calculate errors************/ 
forCint i= 0;i>=0;i— ) { 

cout « endl « "Calculating error for interior n-3 points 
on level " « i« " ..." « endl « endl; 

if(p==0) { 

cout « "residual error = "<< norm(r[i]) << " for 

v-cycle " « p+1 « endl « endl; 
copy(uold[i] ,u[i] ) ; 

} 

else { 

cout « "residual error = "<< norm(r[i]) « " for 

v-cycle " « p+1 « endl; 
subtract (unew [i] , uold [i] , u [i] ) ; 
cout « "truncation error = " « norm(unew[i] ) 
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« " for v-cycle " « p+1 « endl « endl; 
copy (uold [i] , u [i] ) ; 

} 

} // end for i 

/*******end of errors***********/ 
} 

if (counter==0) { 

uoldvalue = getu(u[0]); // value of u at puncture 
counter++; 

> 

else { 

unewvalue = getu(u[0]); // value of u at puncture 
if (uoldvalue>unewvalue) uerror = uoldvalue - unewvalue; 
// the above ensures error is > 
else uerror = unewvalue - uoldvalue; 
uoldvalue = unewvalue; // stores new value of u at 

/ / puncture 

counter++; 

} 

double D = 2.0*X1; 

Ml = D*( -(1.0+uoldvalue) 

+ sqrt( (1.0 + uoldvalue) * (1 .0 + uoldvalue) 

+ 2 . 0*BAREM1/D ) ) ; // calculates new mass 
M2 = Ml; 

cout « "Ml = M2 = " « setprecision(12) « Ml 

« " uerror = " « uerror « " counter = " 
« counter « endl; 

} // end while - uerror 

for(int i=0; i<=NMG; i++) { // determines the conformal 

// factor on the surfaces 
f illpsi (psi [i] , alpha [i] , u [i] ) ; 

} 

for(int i=0;i<=NMG;i++) { 

cout « "Calculating Mass for Level " « i « " « endl; 
n = psi [i] . sideXO ; 
double h = psi[i].hX(); 
if (psi [i] .LenX()<maLXsize) { 
for(int k = n/2;k<n-2;k++) { 

cout « k « " " « h*(k-l) « " " 
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« setprecision(16) « Ml+M2+moment (psi [i] ,0,0,k) 
« endl; 

} 

} 

else{ 

forCint k = n/2+1 ;k<n;k++) { 

cout « "J = " « J « " d = " « 2.0*X1 

« " ADM Mass = " « setprecision(16) 
« Ml+M2+monient(psi[i] ,0,0,n-l) « endl; 
cout « k « " " « h*(k-l) « " " 

« setprecision(16) « Ml+M2+moment (psi [i] ,0,0,k) 
« endl; 

} 

} end else - i 
} end for - i 

char filename [50] ; 

sprintf (filename, "MG_yold-J_y.lf.dat",MG, J) ; 
save (filename, psi [NMG] ,u[0] ) ; 

} 

The program setup determines all of the other system parameters, such as the hole separation 
distance: 

//setup. cxx - changes parameters of system 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include "adapt. h" 

namespace Parameters { 

double Ml; 
double M2; 
double XI; 
double X2; 
double SCALE; 
double LEN; 
double PYl; 
double PY2; 



} 
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void setup (double sepdist) { 

using namespace Parameters; 

extern int MG; 
extern double J; 

XI = sepdist/2; 

X2 = XI; // punctures are equal distances away 

SCALE = 2.0*X1; // SETS SCALE OF ARRAYS 

LEN = 1.0*(pow(2,MG)+2)/(pow(2,MG))*SCALE; // SETS SIZE OF 

// NMG ARRAYS 

PYl = 1.0*J/(2.0*X1) ; 

PY2 = -1.0*J/(2.0*X1) ; // J = j l+j2=dl*Pl+d2*P2 = 2*d*P... 
cout « endl « "MG = " « MG « " J = " « J « endl; 
cout « "XI = " « XI « " X2 = " « X2 « endl; 
cout « "SCALE = " « SCALE « " LEN = " « LEN « endl; 
cout « "PI = -P2 = " « PYl « endl « endl; 



The program newbeta calculates the geometrical quantities a and (3, used to solve the 
Hamiltonian constraint: 

// newbetacxx - Fills alpha and beta arrays for binary 

// black hole system 

#include <assert.h> 

#include <fstream.h> 

#include <iostream.h> 

#include <iomanip.h> 

#include <math.h> 

#include "grid.h" 

#include "adapt. h" 



extern 


const 


double 


Yl; 


extern 


const 


double 


Y2; 


extern 


const 


double 


Zl; 


extern 


const 


double 


Z2; 


extern 


const 


double 


PXl; 


extern 


const 


double 


PX2; 


extern 


const 


double 


PZl; 


extern 


const 


double 


PZ2; 


extern 


const 


double 


SXl; 


extern 


const 


double 


SX2; 


extern 


const 


double 


SYl; 


extern 


const 


double 


SY2; 


extern 


const 


double 


SZl; 


extern 


const 


double 


SZ2; 



// Yl = Y2 = 

// Zl = Z2 = 

// PZl = PZ2 = 

// SXl = SX2 = SYl = SY2 = 
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void newbeta(AGrid3D& alpha, AGrid3D& beta){ 

using namespace Parameters; // looks up parameter values 
int i,j,k; 

int n=alpha. sideXO ; 
double h = alpha. hX(); 
double xl,yl,zl,rl; 
double x2,y2,z2,r2; 
double A; 

//cout « "calculating for binary black holes!!!" « endl; 

f or (i=l ; i<=n; i++) { // calculate for equatorial plane 

for(j=l; j<=n;j++) { 
k = 1; 

xl=(h*(i-l)-Xl) ; 
yl=(h*(j-l)-Yl); 
zl=(h*(k-l)-Zl) ; 
x2=(h*(i-l)+X2) ; 
y2=(h*(j-l)+Y2); 
z2=(h*(k-l)+Z2) ; 



rl=sqrt (xl*xl+yl*yl+zl*zl) ; 
r2=sqrt(x2*x2+y2*y2+z2*z2) ; 

A = Ml*r2+M2*rl; 

alpha(i,j,l) = 2.0*rl*r2/(Ml*r2+M2*rl) ; 

// this expression for beta is the same as below, but 
// zl and z2 = in two important places 
// along with some minor simplification to get rid of 
// diverging terms 

beta(i,j,l) = 

pow(A , -7) * (72*pow(r2 , 7) *rl* (2*pow(yl , 2) +pow (rl , 2) ) *pow (PYl , 2) 
+ (72*pow(r2 , 2) *pow (rl , 2) * (2*x2*xl*pow(r2 , 2) *pow (r 1 , 2) 
+2*x2*xl*pow(y2 , 2) *pow(r 1 , 2) +2*x2*xl*pow(r2 , 2) *pow (yl , 2) 
+2*x2*xl*pow (y2 , 2) *pow (y 1 , 2) +2*pow (y2 , 3) *pow (yl , 3) 
+y2*pow(yl , 3) *pow(r2 , 2) +pow(yl , 3) *y2*pow(z2 , 2) 
+2*z2*zl*pow (y2 , 2) *pow (y 1 , 2) +2*z2*zl*pow (r2 , 2) *pow (yl , 2) 
+yl*pow(zl , 2) *pow(y2 , 3) -y2*yl*pow(r2 , 2) *pow (zl , 2) 
+2*y2*yl*pow (z2 , 2) *pow (z 1 , 2) +pow (y2 , 3) *yl*pow (r 1 , 2) 
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+2*y2*yl*pow(r2 , 2) *pow(rl , 2) -y2*yl*pow (z2 , 2) *pow (rl , 2) 
+2*z2*zl*pow (y2 , 2) *pow (r 1 , 2) +2*z2*zl*pow (r2 , 2) *pow (r 1 , 2) 

+2*y2*z2*x2*yl*zl*xl) *PY2+288*SZl*xl*pow(r2 , 7) *rl 
+288*pow(r2 , 2) *pow(rl , 2) * (-2*xl*pow(y2 , 2) *pow(rl , 2) 
-xl*pow(z2 , 2) *pow(rl , 2) +xl*pow (r2 , 2) *pow(r 1 , 2) 
-2*xl*pow (y2 , 2) *pow (y 1 , 2) -xl*pow (y 1 , 2) *pow (z2 , 2) 
+xl*pow (yl , 2) *pow (r2 , 2) +x2*z2*zl*pow (r 1 , 2) 
+x2*z2*zl*pow(yl,2)+y2*x2*yl*pow(rl,2) 

+y2*x2*yl*pow(zl , 2) +2*y2*x2*pow (yl , 3) -y2*z2*yl*zl*xl) *SZ2 
+72*pow(r2 , 2) *rl* (-3*PX2*rl*pow(yl , 3) *x2*pow(r2 , 2) 
+4*PX2*pow (r 1 , 3) *y2*xl*pow (r2 , 2) -2*PX2*pow (r 1 , 3) *pow (y2 , 3) *xl 
-3*PX2*rl*yl*x2*pow(r2 , 2) *pow(zl , 2) 

+4*PX2*rl*y2*xl*pow(r2,2)*pow(yl,2)+4*PXl*pow(r2,5)*xl*yl 
-2*PX2*rl*z2*yl*zl*xl*pow (y2 , 2) +PX2*rl*pow (yl , 3) *x2*pow(z2 , 2) 
+2*PX2*pow(rl,3)*y2*z2*x2*zl+2*PX2*rl*y2*z2*x2*zl*pow(yl,2) 
+PX2*rl*y l*pow(zl , 2) *x2*pow (y2 , 2) 
-2*PX2*rl*pow (y2 , 3) *xl*pow (yl , 2) 

-2*PX2*pow(rl , 3) *y2*xl*pow(z2 , 2) -2*PX2*rl*zl*xl*yl*pow (z2 , 3) 

-PX2*pow(rl , 3) *yl*x2*pow (z2 , 2) +PX2*pow(rl , 3) *yl*x2*pow(y2 , 2) 

-2*PX2*rl*xl*pow (yl , 2) *y2*pow(z2 , 2) 

+4*PX2*rl*z2*yl*zl*xl*pow(r2,2) 

+2*PX2*rl*yl*x2*pow (z2 , 2) *pow (zl , 2) 

+2*PX2*rl*pow(yl , 3) *x2*pow(y2 , 2) ) ) *PY1 

+72*pow(rl , 7) *r2* (2*pow(y2 , 2) +pow(r2 , 2) ) *pow (PY2 , 2) 

+ (288*pow(r2 , 2) *pow(rl , 2) * (2*pow(y2 , 3) *xl*yl 

+y2*xl*yl*pow(r2 , 2) 

+y2*xl*yl*pow(z2 , 2)+xl*zl*z2*pow(r2 , 2) +xl*zl*z2*pow(y2 , 2) 
-2*x2*pow (y2 , 2) *pow (yl , 2) -2*x2*pow (r2 , 2) *pow (yl , 2) 
-x2*pow (zl , 2) *pow (r2 , 2) -pow (zl , 2) *x2*pow (y2 , 2) -y2*z2*x2*yl*zl 
+x2*pow(r2 , 2) *pow(rl , 2) +x2*pow (y2 , 2) *pow(rl , 2) ) *SZ1 
+288*SZ2*x2*pow (r 1 , 7) *r2-72*r2*pow (r 1 , 2) * ( 

-PXl*pow(r2 , 3) *y2*xl*pow (yl , 2) +2*PXl*r2*pow (yl , 3) *x2*pow(y2 , 2) 

+2*PXl*r2*y2*z2*x2*zl*pow(yl , 2) -2*PXl*r2*z2*yl*zl*xl*pow(y2 , 2) 

-2*PXl*r2*y2*xl*pow(z2 , 2) *pow(zl , 2) 

-4*PXl*r2*pow(rl , 2) *yl*x2*pow(y2 , 2) 

-4*PXl*r2*pow(rl , 2) *y2*z2*x2*zl 

+3*PXl*r2*pow (r 1 , 2) *pow (y2 , 3) *xl 

+3*PXl*r2*pow(rl , 2) *y2*xl*pow(z2 , 2) 

-PXl*r2*xl*pow (zl , 2) *pow (y2 , 3) -2*PXl*r2*pow(y2 , 3) *xl*pow(yl , 2) 
-4*PX2*pow(r 1 , 5) *y2*x2+PXl*pow (r2 , 3) *y2*xl*pow(zl , 2) 
+2*PXl*pow(r2 , 3) *pow (yl , 3) *x2+2*PXl*pow(r2 , 3) *yl*x2*pow (zl , 2) 
-PXl*r2*xl*pow(yl , 2) *y2*pow (z2 , 2) -2*PXl*pow (r2 , 3) *z2*yl*zl*xl 
-4*PXl*pow(r2 , 3) *pow(rl , 2) *yl*x2+2*PXl*r2*y2*z2*x2*pow(zl ,3) 
+2*PXl*r2*yl*pow (zl , 2) *x2*pow(y2 , 2) ) ) *PY2 
+288*pow(r2 , 7) *rl*pow(SZl , 2) 

+ (576*pow (r2 , 2) *pow (r 1 , 2) * (4*pow (y2 , 2) *pow (yl , 2) 
+2*pow(yl , 2) *pow(z2 , 2) -2*pow(yl , 2) *pow (r2 , 2) 
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+2*pow(y2 , 2) *pow(zl , 2) +pow(zl , 2) *pow (z2 , 2) -pow (zl , 2) *pow (r2 , 2) 

-2*pow(y2 , 2) *pow(rl , 2) -pow(z2 , 2) *pow (r 1 , 2) +pow (r2 , 2) *pow (r 1 , 2) 

+4*y2*x2*xl*yl+z2*x2*xl*zl+y2*z2*yl*zl)*SZ2 

-288*pow(r2 , 2) *rl* (-2*PX2*rl*y2*pow(yl , 2) *pow(z2 , 2) 

-PX2*rl*x2*yl*xl*pow(z2 , 2) +4*PX2*pow(r2 , 2) *rl*y2*pow(yl , 2) 

-PX2*r l*pow (zl , 2) *pow (y2 , 3) +pow (y2 , 3) *pow (r 1 , 3) *PX2 

+2*PX2*pow(r2 , 2) *rl*y2*pow(zl , 2) -2*PX2*pow (r2 , 2) *pow (rl , 3) *y2 

-PX2*rl*xl*zl*y2*z2*x2-2*PX2*rl*pow(yl,2)*pow(y2,3) 

+PXl*pow(r2 , 5) *yl-PX2*rl*y2*pow(zl , 2) *pow(z2 , 2) 

+2*PX2*pow(r2 , 2) *rl*yl*zl*z2-PX2*rl*yl*zl*z2*pow(y2 , 2) 

-PX2*rl*yl*zl*pow (z2 , 3) -2*PX2*rl*x2*yl*xl*pow(y2 , 2) 

+3*PX2*pow(r2 , 2) *rl*x2*yl*xl+pow(z2 , 2) *y2*pow(rl , 3)*PX2) ) *SZ1 

+288*pow(rl , 7) *r2*pow(SZ2 , 2) -288*r2*pow(rl , 2) * ( 

-2*PXl*r2*y2*x2*xl*pow (yl , 2) -2*PXl*pow(r2 , 3) *pow (rl , 2) *yl 

-2*PXl*r2*pow(yl , 3) *pow(y2 , 2) -PXl*r2*y2*x2*xl*pow(zl , 2) 

-PXl*r2*y2*z2*zl*pow(yl , 2) +PXl*pow(r2 , 3) *yl*pow(zl ,2) 

+2*PXl*r2*pow(rl , 2) *zl*z2*y2-PXl*r2*pow(yl , 3) *pow(z2 , 2) 

+PX2*pow(rl , 5) *y2+3*PXl*r2*pow(rl , 2) *y2*x2*xl 

-PXl*r2*y2*z2*pow(zl,3)-PXl*r2*x2*z2*yl*zl*xl 

+PXl*pow(r2 , 3) *pow (yl , 3) +4*PXl*r2*pow(rl , 2) *yl*pow(y2 , 2) 

+2*PXl*r2*pow(rl , 2) *yl*pow(z2 , 2) 

-2*PXl*r2*yl*pow(y2 , 2) *pow(zl , 2) 

-PXl*r2*yl*pow(z2 , 2) *pow(zl , 2) ) *SZ2 

+72*r2*rl* (-4*PXl*pow(r2 , 3) *rl*PX2*z2*zl*pow(yl , 2) 

-4*PXl*pow(r2,3)*rl*PX2*y2*yl*pow(zl,2) 

-3*PXl*pow(r2 , 3) *rl*PX2*x2*xl*pow(yl , 2) 

-4*PXl*r2*pow(rl,3)*PX2*y2*yl*pow(z2,2) 

+2*PXl*r2*rl*PX2*pow(z2 , 3) *pow(zl , 3) 

-3*PXl*r2*pow(rl , 3) *PX2*x2*xl*pow(z2 , 2) 

-3*PXl*r2*pow(rl , 3) *PX2*x2*xl*pow(y2 , 2) 

-2*pow(PXl , 2) *pow (r2 , 6) *pow (zl , 2) 

+PXl*r2*rl*PX2*xl*pow(zl , 2) *x2*pow(y2 , 2) 

+2*PXl*r2*rl*PX2*x2*xl*pow(z2 , 2) *pow(zl , 2) 

+2*PXl*r2*rl*PX2*pow (yl , 3) *y2*pow(z2 , 2) 

+8*PXl*pow(r2 , 3) *pow(rl , 3) *PX2*y2*yl 

-4*PXl*pow(r2 , 3) *rl*PX2*z2*pow (zl , 3) 

-4*PXl*pow(r2 , 3) *rl*PX2*y2*pow (yl , 3) 

+8*PXl*pow(r2 , 3) *pow (rl , 3) *PX2*z2*zl 

+PXl*r2*rl*PX2*xl*pow(yl , 2) *x2*pow (z2 , 2) 

+2*PXl*r2*rl*PX2*pow(zl , 3) *z2*pow(y2 , 2) 

-4*PXl*r2*pow(rl , 3) *PX2*z2*zl*pow(y2 , 2) 

+2*PXl*r2*rl*PX2*x2*xl*pow(y2 , 2) *pow(yl , 2) 

+2*PXl*r2*rl*PX2*yl*pow(zl , 2) *pow(y2 , 3) 

+2*PXl*r2*rl*PX2*zl*pow(yl , 2) *pow(z2 , 3) 

-3*PXl*pow(r2,3)*rl*PX2*x2*xl*pow(zl,2) 

+2*PXl*r2*rl*PX2*y2*yl*pow (z2 , 2) *pow (zl , 2) 

-4*PXl*r2*pow(rl , 3) *PX2*pow(z2 , 3) *zl 
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+6*PXl*pow(r2 , 3) *pow(rl , 3) *PX2*x2*xl 
-2*pow(PXl , 2) *pow(r2 , 6) *pow (yl , 2) 
+2*PXl*r2*rl*PX2*z2*zl*pow(y2 , 2) *pow (yl , 2) 
+2*PXl*r2*rl*PX2*pow (y2 , 3) *pow (yl , 3) 
+2*PXl*r2*rl*PX2*y2*z2*x2*yl*zl*xl 
-4*PXl*r2*pow (r 1 , 3) *PX2*pow (y2 , 3) *yl 
+3*pow(PX2 , 2) *pow(rl , 6) *pow (r2 , 2) 
+3*pow(PXl , 2) *pow(r2 , 6) *pow (rl , 2) 
-2*pow(PX2 , 2) *pow(rl , 6) *pow (z2 , 2) 
-2*pow (PX2 , 2) *pow (r 1 , 6) *pow (y2 , 2) ) ) ; 
} 

} 



f or (i=l ; i<=n; i++) { // calculate for everywhere else 

for(j=l;j<=n;j++) { 
for(k=2;k<=n;k++) { 

xl=(h*(i-l)-Xl) ; 
yl=(h*(j-l)-Yl); 
zl=(h*(k-l)-Zl) ; 
x2=(h*(i-l)+X2) ; 
y2=(h*(j-l)+Y2) ; 
z2=(h*(k-l)+Z2) ; 



rl=sqrt (xl*xl+yl*yl+zl*zl) ; 
r2=sqrt (x2*x2+y2*y2+z2*z2) ; 

A = Ml*r2+M2*rl; 

alpha(i,j,k) = 2.0*rl*r2/(Ml*r2+M2*rl) ; 

beta(i , j ,k) = 

pow(A,-7)*(72*pow(r2,7)*rl*(2*pow(yl,2)+pow(rl,2))*pow(PYl,2) 
+ (72*pow (r2 , 2) *pow (r 1 , 2) * (2*x2*xl*pow (r2 , 2) *pow (r 1 ,2) 
+2*x2*xl*pow(y2 , 2) *pow(rl , 2) +2*x2*xl*pow (r2 , 2) *pow (yl , 2) 
+2*x2*xl*pow (y2 , 2) *pow (y 1 , 2) +2*pow (y2 , 3) *pow (yl , 3) 
+y2*pow(yl , 3) *pow(r2 , 2) +pow (yl , 3) *y2*pow(z2 ,2) 
+2*z2*zl*pow (y2 , 2) *pow (yl , 2) +2*z2*zl*pow(r2 , 2) *pow(yl , 2) 
+yl*pow (zl , 2) *pow (y2 , 3) -y2*yl*pow (r2 , 2) *pow (zl , 2) 
+2*y2*yl*pow(z2 , 2) *pow(zl , 2) +pow (y2 , 3) *yl*pow (rl , 2) 
+2*y2*yl*pow (r2 , 2) *pow(rl , 2) -y2*yl*pow(z2 , 2) *pow (rl , 2) 
+2*z2*zl*pow(y2 , 2) *pow(rl , 2)+2*z2*zl*pow(r2 , 2) *pow(rl ,2) 
+2*y2*z2*x2*yl*zl*xl) *PY2+288*SZl*xl*pow(r2 , 7) *rl 
+288*pow(r2 , 2) *pow(rl , 2) * (-2*xl*pow(y2 , 2) *pow (r 1 , 2) 
-xl*pow(z2,2)*pow(rl,2)+xl*pow(r2,2)*pow(rl,2) 
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COMPUTER CODE 



-2*xl*pow (y2 , 2) *pow (yl , 2) -xl*pow (yl , 2) *pow(z2 , 2) 
+xl*pow(yl,2)*pow(r2,2)+x2*z2*zl*pow(rl ,2)+x2*z2*zl*pow(yl,2) 
+y2*x2*yl*pow(rl , 2) +y2*x2*yl*pow(zl , 2) +2*y2*x2*pow(yl , 3) 
-y2*z2*yl*zl*xl) *SZ2+72*pow(r2 , 2) *rl* ( 
-3*PX2*r l*pow (yl , 3) *x2*pow (r2 , 2) 

+4*PX2*pow(rl , 3) *y2*xl*pow(r2 , 2) -2*PX2*pow(r 1 , 3) *pow (y2 , 3) *xl 
-3*PX2*rl*yl*x2*pow(r2 , 2) *pow(zl , 2) 

+4*PX2*rl*y2*xl*pow(r2 , 2) *pow (yl , 2) +4*PXl*pow(r2 , 5) *xl*yl 
-2*PX2*rl*z2*yl*zl*xl*pow(y2,2)+PX2*rl*pow(yl,3)*x2*pow(z2,2) 
+2*PX2*pow(rl,3)*y2*z2*x2*zl+2*PX2*rl*y2*z2*x2*zl*pow(yl,2) 
+PX2*rl*yl*pow(zl , 2) *x2*pow (y2 , 2) 
-2*PX2*rl*pow (y2 , 3) *xl*pow(yl , 2) 

-2*PX2*pow(rl , 3) *y2*xl*pow (z2 , 2) -2*PX2*rl*zl*xl*yl*pow (z2 , 3) 

-PX2*pow (r 1 , 3) *y l*x2*pow (z2 , 2) +PX2*pow (rl , 3) *yl*x2*pow (y2 , 2) 

-2*PX2*rl*xl*pow(yl , 2) *y2*pow(z2 , 2) 

+4*PX2*rl*z2*yl*zl*xl*pow(r2,2) 

+2*PX2*rl*yl*x2*pow(z2 , 2) *pow(zl , 2) 

+2*PX2*rl*pow(yl , 3) *x2*pow (y2 , 2) ) ) *PY1 

+72*pow(rl , 7) *r2* (2*pow(y2 , 2) +pow(r2 , 2) ) *pow(PY2 , 2) 

+ (288*pow(r2 , 2) *pow(rl , 2) * (2*pow(y2 , 3) *xl*yl 

+y2*xl*yl*pow(r2 , 2)+y2*xl*yl*pow(z2 , 2)+xl*zl*z2*pow(r2 , 2) 

+xl*zl*z2*pow (y2 , 2) -2*x2*pow (y2 , 2) *pow (yl , 2) 

-2*x2*pow (r2 , 2) *pow (yl , 2) -x2*pow (zl , 2) *pow (r2 , 2) 

-pow (zl , 2) *x2*pow(y2 , 2) -y2*z2*x2*yl*zl+x2*pow (r2 , 2) *pow(rl , 2) 

+x2*pow(y2 , 2) *pow(rl , 2) ) *SZl+288*SZ2*x2*pow (rl , 7) *r2 

-72*r2*pow(rl , 2) * (-PXl*pow(r2 , 3) *y2*xl*pow(yl , 2) 

+2*PXl*r2*pow (yl , 3) *x2*pow(y2 , 2) 

+2*PXl*r2*y2*z2*x2*zl*pow(yl,2) 

-2*PXl*r2*z2*yl*zl*xl*pow(y2,2) 

-2*PXl*r2*y2*xl*pow(z2 , 2) *pow (zl , 2) 

-4*PXl*r2*pow(rl , 2) *yl*x2*pow (y2 , 2) 

-4*PXl*r2*pow(rl , 2) *y2*z2*x2*zl 

+3*PXl*r2*pow(rl , 2) *pow(y2 , 3) *xl 

+3*PXl*r2*pow(rl , 2) *y2*xl*pow (z2 , 2) 

-PXl*r2*xl*pow (zl , 2) *pow (y2 , 3) 

-2*PXl*r2*pow(y2 , 3) *xl*pow (yl , 2) -4*PX2*pow(rl , 5) *y2*x2 
+PXl*pow(r2 , 3) *y2*xl*pow (zl , 2) +2*PXl*pow(r2 , 3) *pow (yl , 3) *x2 

+2*PXl*pow(r2 , 3) *yl*x2*pow (zl , 2) 
-PXl*r2*xl*pow (yl , 2) *y2*pow(z2 , 2) 

-2*PXl*pow(r2 , 3) *z2*yl*zl*xl-4*PXl*pow(r2 , 3) *pow (rl , 2) *yl*x2 

+2*PXl*r2*y2*z2*x2*pow(zl,3) 

+2*PXl*r2*yl*pow(zl , 2) *x2*pow(y2 , 2) ) ) *PY2 

+288*pow(r2 , 7) * (rl-zl) * (rl+zl) /rl*pow(SZl ,2) 

+ (576*pow(r2 , 2) *pow(rl , 2) * (4*pow(y2 , 2) *pow (yl , 2) 

+2*pow(yl , 2) *pow(z2 , 2) -2*pow (yl , 2) *pow(r2 , 2) 

+2*pow (y2 , 2) *pow (zl , 2) +pow (zl , 2) *pow (z2 , 2) 

-pow(zl , 2) *pow(r2 , 2) -2*pow(y2 , 2) *pow (r 1 , 2) 
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-pow (z2 , 2) *pow (r 1 , 2) +pow (r2 , 2) *pow (r 1 , 2) +4*y2*x2*xl*y 1 
+z2*x2*xl*zl+y2*z2*yl*zl) *SZ2 

-288*pow(r2 , 2) *rl* (-2*PX2*r l*y2*pow(yl , 2) *pow (z2 , 2) 
-PX2*rl*x2*yl*xl*pow (z2 , 2) +4*PX2*pow (r2 , 2) *rl*y2*pow(yl , 2) 
-PX2*r l*pow (zl , 2) *pow (y2 , 3) +pow (y2 , 3) *pow (r 1 , 3) *PX2 
+2*PX2*pow(r2 , 2) *rl*y2*pow (zl , 2) 

-2*PX2*pow(r2 , 2) *pow(rl , 3) *y2-PX2*rl*xl*zl*y2*z2*x2 

-2*PX2*rl*pow(yl , 2) *pow(y2 , 3)+PXl*pow(r2 , 5) *yl 

-PX2*rl*y2*pow (zl , 2) *pow (z2 , 2) +2*PX2*pow(r2 , 2) *rl*yl*zl*z2 

-PX2*rl*yl*zl*z2*pow(y2,2)-PX2*rl*yl*zl*pow(z2,3) 

-2*PX2*rl*x2*yl*xl*pow(y2 , 2)+3*PX2*pow(r2 , 2) *rl*x2*yl*xl 

+pow(z2 , 2) *y2*pow(rl , 3) *PX2) ) *SZ1 

+288*pow(rl , 7) * (r2-z2) * (r2+z2) /r2*pow(SZ2 , 2) 

-288*r2*pow(rl , 2) * (-2*PXl*r2*y2*x2*xl*pow (yl , 2) 

-2*PXl*pow(r2 , 3) *pow(rl , 2) *yl-2*PXl*r2*pow (yl , 3) *pow(y2 , 2) 

-PXl*r2*y2*x2*xl*pow(zl,2)-PXl*r2*y2*z2*zl*pow(yl,2) 

+PXl*pow(r2 , 3) *yl*pow(zl , 2) +2*PXl*r2*pow(rl , 2) *zl*z2*y2 

-PXl*r2*pow(yl,3)*pow(z2,2)+PX2*pow(rl,5)*y2 

+3*PXl*r2*pow(rl , 2) *y2*x2*xl-PXl*r2*y2*z2*pow (zl , 3) 

-PXl*r2*x2*z2*yl*zl*xl+PXl*pow (r2 , 3) *pow(yl , 3) 

+4*PXl*r2*pow(rl , 2) *yl*pow(y2 , 2) 

+2*PXl*r2*pow (r 1 , 2) *yl*pow (z2 , 2) 

-2*PXl*r2*yl*pow(y2 , 2) *pow(zl , 2) 

-PXl*r2*yl*pow (z2 , 2) *pow(zl , 2) ) *SZ2 

+72*r2*rl* (-4*PXl*pow(r2 , 3) *rl*PX2*z2*zl*pow(yl , 2) 

-4*PXl*pow(r2,3)*rl*PX2*y2*yl*pow(zl,2) 

-3*PXl*pow(r2,3)*rl*PX2*x2*xl*pow(yl,2) 

-4*PXl*r2*pow(rl , 3) *PX2*y2*yl*pow(z2 , 2) 

+2*PXl*r2*rl*PX2*pow(z2 , 3) *pow(zl , 3) 

-3*PXl*r2*pow(rl , 3) *PX2*x2*xl*pow(z2 , 2) 

-3*PXl*r2*pow(rl , 3) *PX2*x2*xl*pow(y2 , 2) 

-2*pow (PXl , 2) *pow (r2 , 6) *pow (zl , 2) 

+PXl*r2*rl*PX2*xl*pow(zl , 2) *x2*pow(y2 , 2) 

+2*PXl*r2*rl*PX2*x2*xl*pow(z2 , 2) *pow (zl , 2) 

+2*PXl*r2*rl*PX2*pow(yl , 3) *y2*pow (z2 , 2) 

+8*PXl*pow(r2 , 3) *pow (rl , 3) *PX2*y2*y 1 

-4*PXl*pow(r2 , 3) *rl*PX2*z2*pow (zl , 3) 

-4*PXl*pow(r2 , 3) *rl*PX2*y2*pow (yl , 3) 

+8*PXl*pow (r2 , 3) *pow (rl , 3) *PX2*z2*zl 

+PXl*r2*rl*PX2*xl*pow(yl , 2) *x2*pow(z2 , 2) 

+2*PXl*r2*rl*PX2*pow(zl , 3) *z2*pow (y2 , 2) 

-4*PXl*r2*pow(rl , 3) *PX2*z2*zl*pow(y2 , 2) 

+2*PXl*r2*rl*PX2*x2*xl*pow(y2 , 2) *pow (yl , 2) 

+2*PXl*r2*rl*PX2*yl*pow(zl , 2) *pow (y2 , 3) 

+2*PXl*r2*rl*PX2*zl*pow(yl , 2) *pow(z2 , 3) 

-3*PXl*pow(r2,3)*rl*PX2*x2*xl*pow(zl,2) 

+2*PXl*r2*rl*PX2*y2*yl*pow(z2 , 2) *pow(zl , 2) 
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-4*PXl*r2*pow(rl , 3) *PX2*pow(z2 , 3) *zl 
+6*PXl*pow (r2 , 3) *pow(r 1 , 3) *PX2*x2*xl 
-2*pow(PXl , 2) *pow(r2 , 6) *pow(yl , 2) 
+2*PXl*r2*rl*PX2*z2*zl*pow (y2 , 2) *pow(yl , 2) 
+2*PXl*r2*rl*PX2*pow(y2 , 3) *pow(yl , 3) 
+2*PXl*r2*rl*PX2*y2*z2*x2*yl*zl*xl 
-4*PXl*r2*pow(rl , 3) *PX2*pow(y2 , 3) *yl 
+3*pow(PX2 , 2) *pow(rl , 6) *pow(r2 , 2) 
+3*pow(PXl,2)*pow(r2,6)*pow(rl,2) 
-2*pow (PX2 , 2) *pow (r 1 , 6) *pow (z2 , 2) 
-2*pow (PX2 , 2) *pow (r 1 , 6) *pow (y2 , 2) ) ) ; 
} 

} 

} 

} 

The program newrelax is the main relaxation scheme for the nonlinear Hamiltonian con- 
straint. The code only relaxes on the interior points of adaptive levels, except the largest 
adaptive and all multigrid levels, in which the Robin boundary condition is employed. 

// newrelax - galerkin (with symmetry) relaxation scheme for 
// nlamg code 

// using galerkin operator on *ALL* levels 

// makes no assumption of solution u being small 

#include <assert.h> 
#include <f stream. h> 
#include <iostreain.h> 
#include <iomanip.h> 
#include <math.h> 

#include "grid.h" 
#include "adapt. h" 

#define SHOW (a) " "«#a«" = "«a«" " 

void newrelax (AGridSDfe u, AGrid3D& v, AGridSDfe s, 

AGrid3D& alpha, AGridSDfe beta) 

{ 

extern double DELO, DELI, DEL2, DEL3; 
extern double GALO, GALl, GAL2, GAL3; 
extern int MG; 
extern double LEN; 

int p; 

int n = u. sideXO ; 
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double h=u.hX(); 

double D = DEL0+2.0/(n-l) ; 

double drdu,ures , vres ,nl ; 

int pmaxsweep =4; // sets # of relaxation sweeps 
int N; 

if (n==pow(2,MG)+3) { // for non-mg levels 
N = n-2; 

} 

else { // for mg levels 
N = n; 

} 

f or (p=l ;p<=pmaxsweep;p++) { 
// note: pass = (i+j+k)yo2 if pass=l -> red; if pass=0 -> black 
for(int pass =1; pass >= 0; pass — ) { 
for (int i=l;i<N;i++) { 
forCint j=l; j<N;j++) { 
for (int k=l;k<N;k++) { 

if ( (i+j+k)%2 ! =pass) continue; 
drdu = -GALO/(h*h) 

+7*alpha(i, j ,k)*beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k) *u(i , j ,k) , -8) ; 
ures = 1.0/(h*h)*(GALl*(u.sy(i+l, j ,k) 

+u.sy(i-l, j ,k)+u.sy(i, j+l,k)+u.sy(i, j-l,k) 

+u.sy(i,j ,k+l)+u.sy(i,j,k-l)) 
+GAL2*(u.sy(i+l, j+l,k)+u.sy(i+l, j-l,k) 
+u. sy(i-l, j+1 ,k)+u. sy(i-l , j-1 ,k) 
+u.sy(i, j+l,k+l)+u.sy(i, j-l,k+l) 
+u.sy(i+l, j ,k+l)+u.sy(i-l, j ,k+l) 
+u.sy(i, j+l,k-l)+u.sy(i, j-l,k-l) 
+u.sy(i+l, j ,k-l)+u. sy(i-l , j ,k-l)) 
+GAL3* (u . sy ( i+1 , j +1 , k+1 ) +u . sy (i-1 , j +1 , k+1) 
+u.sy(i+l, j-l,k+l)+u.sy(i-l, j-l,k+l) 
+u.sy(i+l, j+l,k-l)+u.sy(i-l, j+l,k-l) 
+u.sy(i+l, j-l,k-l)+u.sy(i-l, j-l,k-l))) ; 
vres = 1.0/(h*h)*(GAL0*v.sy(i,j,k) 
+GALl*(v.sy(i+l, j ,k)+v. sy(i-l, j ,k) 
+v.sy(i, j+l,k)+v.sy(i, j-l,k) 
+v.sy(i, j ,k+l)+v.sy(i, j ,k-l)) 
+GAL2*(v.sy(i+l, j+l,k)+v.sy(i+l, j-l,k) 
+v.sy(i-l, j+l,k)+v.sy(i-l, j-l,k) 
+v.sy(i, j+l,k+l)+v.sy(i, j-l,k+l) 
+v.sy(i+l, j ,k+l)+v.sy(i-l, j ,k+l) 
+v.sy(i,j+l,k-l)+v.sy(i, j-l,k-l) 
+v.sy(i+l,j ,k-l)+v.sy(i-l,j ,k-l)) 
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COMPUTER CODE 



+GAL3*(v.sy(i+l, j+l,k+l)+v.sy(i-l, j+l,k+l) 
+v.sy(i+l, j-l,k+l)+v.sy(i-l, j-l,k+l) 

+v.sy(i+l, j+l,k-l)+v.sy(i-l, j+l,k-l) 
+v.sy(i+l, j-l,k-l)+v.sy(i-l, j-l,k-l))) 
+beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k)*v. sy(i, j ,k) ,-7) ; 
nl = -beta(i, j ,k)*pow(l+alpha(i, j ,k) 

+alpha(i, j ,k)*u(i, j ,k) ,-7) 
*(1.0+7*alpha(i, j ,k)*u.sy(i, j ,k)/(l 

+alpha(i, j ,k)+alpha(i, j ,k)*u(i, j ,k))) ; 
u(i,j,k) = 1 .0/drdu*(-s(i, j ,k) + ures 
- vres - nl) ; 

} // end for-k 
} // end for-j 
} // end for-i 

// Outermost corner, edges, and faces 
if (n<=pow(2,MG)+l) { 
// Outermost corner 
if(pass==l) i 

drdu = D/(h*h) 

+7*alpha (n , n , n) *bet a (n , n , n) *pow ( 1+alpha (n , n , n) 
+alpha(n,n,n) *u(n,n,n) ,-8) ; 
ures = 1.0/(h*h)*(2*u.sy(n-l,n,n) 

+2*u . sy (n , n- 1 , n) +2*u . sy (n , n , n- 1 ) ) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l,n,n)+2*v.sy(n,n-l,n) 
+2*v. sy(n,n,n-l)-D*v. sy(n,n,n) ) 
+beta (n , n , n) *pow ( 1+alpha (n , n , n) 
+alpha(n,n,n)*v. sy(n,n,n) ,-7) ; 
nl = -beta (n,n,n)*pow (1+alpha (n,n,n) 
+alpha(n,n,n)*u(n,n,n) ,-7) 
* (1 . 0+7*alpha (n , n , n) *u . sy (n , n , n) / ( 1 
+alpha (n , n , n) +alpha (n , n , n) *u (n , n , n) ) ) ; 
u(n,n,n) = 1 .0/drdu*(-s(n,n,n) + ures - vres - nl) ; 

} //end if corner 

// Edges 

for(int i=l;i<n;i++) { 

if ( (n+n+i)°/„2 ! =pass) continue; 

double S = (l-1.0*(i-l)/(n-l)) ; // S for subtract 
double A = (l+1.0*(i-l)/(n-l)) ; // A for add 

drdu = D/(h*h) 
+7*alpha(i ,n,n)*beta(i ,n,n) *pow(l+alpha(i ,n,n) 
+alpha(i,n,n)*u(i,n,n) ,-8) ; 
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ures = 1 .0/(h*h)*(2*u.sy(i,n-l,n) 

+2*u. sy(i,n,n-l)+S*u. sy(i+l ,n,n)+A*u. sy(i-l,n,n) ) ; 
vres = 1.0/(h*h)*(2*v.sy(i,n-l,n) 

+2*v. sy(i ,n,n-l)+S*v.sy(i+l ,n,n)+A*v. sy(i-l,n,n) 
-D*v.sy(i,n,n)) 
+bet a ( i , n , n) *pow ( 1+alpha ( i , n , n) 
+alpha(i ,n,n) *v. sy(i,n,n) ,-7) ; 
nl = -beta(i ,n,n) *pow(l+alpha(i ,n,n) 
+alpha(i ,n,n) *u(i ,n,n) ,-7) 
* (1 . 0+7*alpha (i,n,n)*u.sy(i,n,n)/(l 
+alpha(i ,n,n)+alpha(i ,n,n)*u(i ,n,n) ) ) ; 
u(i,n,n) = 1.0/drdu*(-s(i,n,n) + ures - vres - nl) ; 

drdu = D/(h*h) 

+7*alpha(n, i ,n) *beta(n, i ,n) *pow (1+alpha (n, i ,n) 
+alpha(n,i,n)*u(n,i,n) ,-8) ; 
ures = 1 .0/(h*h)*(2*u.sy(n-l,i,n) 

+2*u. sy(n, i ,n-l)+S*u. sy (n, i+1 ,n)+A*u. sy(n, i-1 ,n) ) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l,i,n) 

+2*v. sy(n,i,n-l)+S*v. sy(n, i+1 ,n)+A*v. sy(n, i-l,n) 

-D*v.sy(n,i,n)) 
+beta(n, i ,n)*pow( 1+alpha (n, i ,n) 
+alpha(n,i,n)*v.sy(n,i,n) ,-7) ; 
nl = -beta(n, i ,n) *pow(l+alpha(n, i ,n) 
+alpha(n,i,n)*u(n,i,n) ,-7) 

*(1 .0+7*alpha(n,i,n)*u.sy(n,i,n)/(l 
+alpha (n , i , n) +alpha (n , i , n) *u (n , i , n) ) ) ; 
u(n,i,n) = 1.0/drdu*(-s(n,i,n) + ures - vres - nl) ; 

drdu = D/(h*h) 

+7*alpha (n , n , i ) *bet a (n , n , i ) *pow ( 1+alpha (n , n , i ) 
+alpha(n,n,i)*u(n,n,i) ,-8) ; 
ures = 1.0/(h*h)*(2*u.sy(n-l,n,i) 

+2*u. sy(n,n-l , i)+S*u. sy (n,n, i+l)+A*u. sy(n,n, i-1) ) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l,n,i) 

+2*v. sy(n,n-l ,i)+S*v.sy(n,n,i+l)+A*v. sy(n,n, i-1) 

-D*v. sy(n,n, i) ) 
+beta(n,n, i) *pow( 1+alpha (n,n, i) 
+alpha(n,n,i)*v.sy(n,n,i) ,-7) ; 
nl = -beta(n,n, i) *pow(l+alpha(n,n, i) 
+alpha(n,n,i)*u(n,n,i) ,-7) 

*(1 .0+7*alpha(n,n,i)*u.sy(n,n,i)/(l 
+alpha (n , n , i ) +alpha (n,n,i)*u(n,n,i))); 
u(n,n,i) = 1 .0/drdu*(-s(n,n,i) + ures - vres - nl) ; 
} // end for-i edges 



// Faces 



COMPUTER CODE 



for(int i=l;i<n;i++) { 
for(int j=l;j<n;j++) { 

if ( (i+j+n)°/o2 ! =pass) continue; 
// A for add, S for subtract 
double Aj = (1+1 .0*(j-l)/(n-l)) ; 
double Sj = (l-1.0*(j-l)/(n-l)); 
double Ai = (1+1 . 0* (i-1) / (n-1) ) ; 
double Si = (l-1.0*(i-l)/(n-l)) ; 

drdu = D/(h*h) 

+7*alpha(i, j ,n)*beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*u(i, j ,n) ,-8) ; 
ures = 1.0/(h*h)*(2*u.sy(i, j ,n-l) 
+Si*u. sy(i+l , j ,n)+Ai*u. sy(i-l , j ,n) 
+Sj*u.sy(i, j+l,n)+Aj*u.sy(i, j-l,n)) ; 
vres = 1.0/(h*h)*(2*v.sy(i, j ,n-l) 
+Si*v. sy(i+l , j ,n)+Ai*v. sy(i-l , j ,n) 
+Sj*v. sy(i, j+1 ,n)+Aj*v.sy(i , j-1 ,n) 
-D*v.sy(i, j ,n)) 

+beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*v. sy(i, j ,n) ,-7) ; 
nl = -beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*u(i, j ,n) ,-7) 

*(1.0+7*alpha(i, j ,n)*u.sy(i, j ,n)/(l 
+alpha(i, j ,n))+alpha(i, j ,n)*u(i, j ,n)) ; 
u(i,j,n) = 1 .0/drdu*(-s(i, j ,n) + ures 
- vres - nl) ; 

drdu = D/(h*h) 

+7*alpha(i,n, j)*beta(i,n, j)*pow(l+alpha(i,n, j) 
+alpha(i,n, j)*u(i,n, j) ,-8) ; 
ures = 1.0/(h*h)*(2*u.sy(i,n-l, j) 
+Si*u. sy(i+l ,n, j)+Ai*u. sy(i-l ,n, j) 
+Sj*u.sy(i,n, j + l)+Aj*u.sy(i,n, j-D) ; 
vres = 1.0/(h*h)*(2*v.sy(i,n-l, j) 
+Si*v.sy(i+l,n, j)+Ai*v.sy(i-l,n, j) 
+Sj*v.sy(i,n,j+1)+Aj*v.sy(i,n,j-1) 
-D*v.sy(i,n, j)) 

+bet a ( i , n , j ) *pow ( 1+alpha ( i , n , j ) 
+alpha(i,n, j)*v.sy(i,n, j) ,-7) ; 
nl = -beta(i,n, j)*pow(l+alpha(i,n, j) 
+alpha(i,n, j)*u(i,n, j) ,-7) 

*(1 .0+7*alpha(i,n, j)*u. sy(i,n, j)/(l 
+alpha(i,n, j)+alpha(i,n, j)*u(i,n, j))) ; 
u(i,n,j) = 1 .0/drdu*(-s(i,n, j) + ures 
- vres - nl) ; 
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drdu = D/(h*h) 

+7*alpha(n, j ,i)*beta(n, j , i)*pow(l+alpha(n, j ,i) 
+alpha(n, j ,i)*u(n, j ,i) ,-8) ; 
ures = 1 .0/(h*h)*(2*u.sy(n-l, j ,i) 
+Sj*u.sy(n, j+l,i)+Aj*u.sy(n, j-l,i) 
+Si*u.sy(n, j , i+l)+Ai*u. sy(n, j ,i-l)) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l, j ,i) 
+Sj*v. sy(n, j+1 , i)+Aj*v. sy(n, j-1 , i) 
+Si*v.sy(n, j , i+l)+Ai*v. sy(n, j ,i-l) 
-D*v.sy(n, j ,i)) 

+beta(n, j ,i)*pow(l+alpha(n, j ,i) 
+alpha(n, j , i)*v. sy(n, j , i) ,-7) ; 
nl = -beta(n, j ,i)*pow(l+alpha(n, j ,i) 
+alpha(n, j ,i)*u(n, j ,i) ,-7) 

*(1.0+7*alpha(n, j ,i)*u.sy(n, j ,i)/(l 
+alpha(n, j ,i)+alpha(n, j ,i)*u(n, j ,i))) ; 
u(n,j,i) = 1 .0/drdu*(-s(n, j ,i) + ures 
- vres - nl) ; 
} // end for-j faces 
} // end for-i faces 
} // end if-n 
} // end for-pass 
} // end for-p 
} // end newrelax 



The program newresidual calculates the residual, based upon the formula for the nonlinear 
relaxation scheme above: 



// newresidual . cxx - Galerkin (with symmetry) residual for nl 
// adaptive mg code 

// using galerkin operator on *ALL* levels 

// makes no assumption about solution u being small 



#include <assert.h> 
#include <fstreain.h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 



#include "grid.h" 
#include "adapt. h" 



// Calculates the residual from r = A(u)-A(v) 

void newresidual (AGrid3D& r, AGrid3D& u, AGrid3D& v, AGrid3D& s. 



140 



COMPUTER CODE 



AGrid3D& alpha, AGridSDfe beta) 

{ 

extern double DELO, DELI, DEL2, DELS; 
extern double GALO, GALl, GAL2, GALS; 
extern int MG; 
extern double LEN; 

int n = r . sideXO ; 
double h = r.hXO; 
int i, j, k; 

double D = DEL0+2.0/(n-l) ; 

for(i=l ; i<n; i++) { 
for(j=l; j<n; j++) { 
for(k=l;k<n;k++) { 

double drdu = -GALO/(h*h) 

+7*alpha(i, j ,k)*beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k)*u(i, j ,k) ,-8) ; 
double ures = 1 . 0/(h*h) *(GALl*(u. sy (i+1 , j ,k) 
+u.sy(i-l,j ,k)+u.sy(i,j+l,k)+u.sy(i, j-l,k) 

+u.sy(i, j ,k+l)+u.sy(i, j ,k-l)) 
+GAL2* (u . sy ( i+1 , j +1 , k) +u . sy ( i+1 , j - 1 , k) 
+u. sy(i-l , j+1 ,k)+u. sy(i-l, j-1 ,k) 
+u.sy(i, j+l,k+l)+u.sy(i, j-l,k+l) 
+u.sy(i+l, j ,k+l)+u.sy(i-l, j ,k+l) 
+u.sy(i, j+l,k-l)+u.sy(i, j-l,k-l) 
+u.sy(i+l, j ,k-l)+u.sy(i-l, j ,k-l)) 
+GALS*(u.sy(i+l, j+l,k+l)+u.sy(i-l, j+l,k+l) 
+u.sy(i+l, j-l,k+l)+u.sy(i-l, j-l,k+l) 
+u.sy(i+l, j+l,k-l)+u.sy(i-l, j+l,k-l) 
+u.sy(i+l,j-l,k-l)+u.sy(i-l,j-l,k-l))) ; 
double vres = 1 . 0/(h*h)*(GALO*v . sy(i , j ,k) 
+GALl*(v.sy(i+l, j ,k)+v. sy(i-l , j ,k) 
+v.sy(i, j+l,k)+v.sy(i, j-l,k) 
+v.sy(i, j ,k+l)+v.sy(i, j ,k-l)) 
+GAL2*(v.sy(i+l, j+l,k)+v.sy(i+l, j-l,k) 
+v. sy(i-l , j+1 ,k)+v. sy(i-l, j-1 ,k) 
+v.sy(i, j+l,k+l)+v.sy(i, j-l,k+l) 
+v.sy(i+l, j ,k+l)+v.sy(i-l, j ,k+l) 
+v.sy(i, j+l,k-l)+v.sy(i, j-l,k-l) 
+v.sy(i+l,j,k-l)+v.sy(i-l,j,k-l)) 
+GALS*(v.sy(i+l, j+l,k+l)+v.sy(i-l, j+l,k+l) 
+v.sy(i+l, j-l,k+l)+v.sy(i-l, j-l,k+l) 
+v.sy(i+l, j+l,k-l)+v.sy(i-l, j+l,k-l) 
+v.sy(i+l, j-l,k-l)+v.sy(i-l, j-l,k-l))) 
+bet a ( i , j , k) *pow ( 1+alpha ( i , j , k) 
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+alpha(i, j ,k)*v.sy(i, j ,k) ,-7) ; 
double nl = -beta(i, j ,k)*pow(l+alpha(i, j ,k) 
+alpha(i, j ,k)*u(i, j ,k) ,-7) 

*(1.0+7*alpha(i, j ,k)*u.sy(i, j ,k)/(l 
+alpha(i, j ,k)+alpha(i, j ,k)*u(i, j ,k))) ; 
r(i,j,k) = s(i,j,k) - ures + vres 
+ nl + drdu*u(i, j ,k) ; 

} // end for k 
} // end for-j 
} // end for-i 

if (n<=pow(2,MG)+l) { // if on finest mg level, use Robin 

// AND Galerkin condition 
double drdu = D/(h*h) 

+7*alpha (n , n , n) *bet a (n , n , n) *pow ( 1+alpha (n , n , n) 
+alpha(n,n,n)*u(n,n,n) ,-8) ; 
double ures = 1 .0/(h*h)*(2*u. sy(n-l ,n,n) 

+2*u. sy(n,n-l ,n)+2*u. sy(n,n,n-l)) ; 
double vres = 1 . 0/ (h*h) * (2*v . sy (n-1 ,n,n) 

+2*v . sy (n , n- 1 , n) +2*v . sy (n , n , n- 1 ) -D*v . sy (n , n , n) ) 
+bet a (n , n , n) *pow ( 1+alpha (n , n , n) 
+alpha(n,n,n)*v. sy(n,n,n) ,-7) ; 
double nl = -beta(n,n,n) *pow(l+alpha(n,n,n) 
+alpha(n,n,n) *u(n,n,n) ,-7) 

*(1 .0+7*alpha(n,n,n)*u.sy(n,n,n)/ (1 
+alpha (n , n , n) +alpha (n , n , n) *u (n , n , n) ) ) ; 
r(n,n,n) = s(n,n,n) - ures + vres + nl + drdu*u(n,n,n) ; 

// Edges 

for(i=l;i<n;i++) { 

double S = (1-1 .0*(i-l)/(n-l)) ; // S for subtract 

double A = (l+1.0*(i-l)/(n-l)) ; // A for add 

drdu = D/(h*h) 

+7*alpha(i ,n,n)*beta(i ,n,n)*pow(l+alpha(i ,n,n) 
+alpha(i ,n,n) *u(i ,n,n) , -8) ; 
ures = 1.0/(h*h)*(2*u.sy(i,n-l,n) 

+2*u . sy ( i , n , n-1 ) +S*u . sy ( i+1 , n , n) +A*u . sy ( i- 1 , n , n) ) ; 
vres = 1.0/(h*h)*(2*v.sy(i,n-l,n)+2*v.sy(i,n,n-l) 
+S*v. sy(i+l,n,n)+A*v. sy(i-l,n,n)-D*v. sy(i,n,n)) 
+beta(i ,n,n) *pow ( 1+alpha (i ,n,n) 
+alpha(i,n,n)*v.sy(i,n,n) ,-7) ; 
nl = -beta(i ,n,n) *pow(l+alpha(i ,n,n) 
+alpha(i,n,n)*u(i,n,n) ,-7) 

*(1.0+7*alpha(i,n,n)*u.sy(i,n,n)/(l 
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+alpha(i ,n,n)+alpha(i ,n,n)*u(i ,n,n) ) ) ; 
r(i,n,n) = s(i,n,n) - ures + vres + nl + drdu*u(i,n,n) ; 

drdu = D/(h*h) 

+7*alpha (n , i , n) *beta (n , i , n) *pow ( 1+alpha (n , i , n) 
+alpha(n,i,n)*u(n,i,n) ,-8) ; 
ures =1.0/(h*h)*(2*u.sy(n-l,i,n) 

+2*u. sy(n, i,n-l)+S*u. sy(n, i+1 ,n)+A*u. sy(n, i-1 ,n) ) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l,i,n)+2*v.sy(n,i,n-l) 
+S*v. sy (n, i+1 ,n)+A*v. sy(n, i-1 ,n)-D*v . sy (n, i ,n) ) 
+beta(n, i ,n)*pow( 1+alpha (n, i ,n) 
+alpha(n,i,n)*v.sy(n,i,n) ,-7) ; 
nl = -beta(n, i ,n) *pow(l+alpha(n, i ,n) 
+alpha(n, i ,n) *u(n, i ,n) , -7) 

* ( 1 . 0+7*alpha (n , i , n) *u . sy (n , i , n) / ( 1 
+alpha(n, i ,n)+alpha(n, i ,n)*u(n, i ,n) ) ) ; 
r(n,i,n) = s(n,i,n) - ures + vres + nl + drdu*u(n,i,n) ; 

drdu = D/(h*h) 

+7*alpha(n,n, i) *beta(n,n, i) *pow(l+alpha(n,n, i) 
+alpha(n,n,i)*u(n,n,i) ,-8) ; 
ures = 1 .0/(h*h)*(2*u.sy(n-l,n,i) 

+2*u. sy(n,n-l , i)+S*u. sy(n,n, i+l)+A*u. sy (n,n, i-1) ) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l,n,i)+2*v.sy(n,n-l,i) 
+S*v. sy(n,n, i+l)+A*v. sy(n,n,i-l)-D*v.sy(n,n, i)) 
+beta(n,n,i)*pow( 1+alpha (n , n , i ) 
+alpha(n,n,i)*v.sy(n,n,i) ,-7) ; 
nl = -beta(n,n,i)*pow(l+alpha(n,n,i) 
+alpha(n,n, i) *u(n,n, i) ,-7) 

* ( 1 . 0+7*alpha (n , n , i ) *u . sy (n , n , i ) / ( 1 
+alpha(n,n, i)+alpha(n,n, i)*u(n,n, i) ) ) ; 
r(n,n,i) = s(n,n,i) - ures + vres + nl + drdu*u(n,n, i) ; 

} 

// Faces 

for(i=l;i<n;i++) { 
for(j=l;j<n;j++) { 

// A for add, S for subtract 
double Aj = (1+1 . 0* ( j-l)/(n-l) ) ; 
double Sj = (l-1.0*(j-l)/(n-l)) ; 
double Ai = (l+1.0*(i-l)/(n-l)) ; 
double Si = (l-1.0*(i-l)/(n-l)) ; 

drdu = D/(h*h) 

+7*alpha(i, j ,n)*beta(i, j , n)*pow( 1+alpha (i,j ,n) 
+alpha(i, j ,n)*u(i, j ,n) ,-8) ; 
ures = 1 .0/(h*h)*(2*u.sy(i, j ,n-l) 
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+Si*u.sy(i+1, j ,n)+Ai*u. sy(i-l , j ,n) 
+Sj*u.sy(i, jH-l,n)+Aj*u.sy(i, j-l,n)) ; 
vres = 1.0/(h*h)*(2*v.sy(i, j ,n-l) 
+Si*v.sy(i+1, j ,n)+Ai*v. sy(i-l , j ,n) 

+S j *v . sy ( i , j +1 , n) +A j *v . sy ( i , j - 1 , n) -D*v . sy ( i , j , n) ) 
+beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*v.sy(i, j ,n) ,-7) ; 
nl = -beta(i, j ,n)*pow(l+alpha(i, j ,n) 
+alpha(i, j ,n)*u(i, j ,n) ,-7) 

*(1 .0+7*alpha(i, j ,n) *u.sy(i, j ,n)/(l 
+alpha(i, j ,n))+alpha(i, j ,n)*u(i, j ,n)) ; 
r(i,j,n) = s(i,j,n) - ures + vres 
+ nl + drdu*u(i, j ,n) ; 

drdu = D/(h*h) 

+7*alpha ( i , n , j ) *bet a ( i , n , j ) *pow ( 1+alpha ( i , n , j ) 
+alpha(i,n, j)*u(i,n, j) ,-8) ; 
ures = 1.0/(h*h)*(2*u.sy(i,n-l, j) 
+Si*u. sy(i+l ,n, j)+Ai*u. sy(i-l ,n, j) 
+Sj*u.sy(i,n, j + l)+Aj*u.sy(i,n, j-D) ; 
vres = 1 .0/(h*h)*(2*v.sy(i,n-l, j) 
+Si*v.sy(i+1 ,n, j)+Ai*v. sy(i-l ,n, j) 

+S j *v.sy(i,n,j+l) +A j *v.sy(i,n,j-l) -D*v . sy (i , n , j ) ) 
+beta ( i , n , j ) *pow ( 1+alpha ( i , n , j ) 
+alpha(i,n, j)*v.sy(i,n, j) ,-7) ; 
nl = -beta(i,n, j)*pow(l+alpha(i,n, j) 
+alpha(i,n, j)*u(i,n, j) ,-7) 

*(1 .0+7*alpha(i,n, j)*u.sy(i,n, j)/(l 
+alpha(i,n, j)+alpha(i,n, j)*u(i,n, j))) ; 
r(i,n,j) = s(i,n,j) - ures + vres 
+ nl + drdu*u(i,n, j) ; 

drdu = D/(h*h) 

+7*alpha(n, j ,i)*beta(n, j , i) *pow(l+alpha(n, j ,i) 
+alpha(n, j ,i)*u(n, j ,i) ,-8) ; 
ures = 1.0/(h*h)*(2*u.sy(n-l, j ,i) 
+Sj*u.sy(n, j+l,i)+Aj*u.sy(n, j-l,i) 
+Si*u. sy(n, j , i+l)+Ai*u. sy(n, j , i-1)) ; 
vres = 1.0/(h*h)*(2*v.sy(n-l, j ,i) 
+Sj*v. sy(n, j+1 , i)+Aj*v. sy(n, j-1 , i) 

+Si*v.sy(n, j ,i+l)+Ai*v.sy(n, j , i-l)-D*v. sy(n, j ,i)) 
+beta(n, j , i)*pow( 1+alpha (n,j ,i) 
+alpha(n, j ,i)*v.sy(n, j ,i) ,-7) ; 
nl = -beta(n, j ,i)*pow(l+alpha(n, j ,i) 
+alpha(n, j ,i)*u(n, j ,i) ,-7) 

*(1.0+7*alpha(n, j ,i)*u.sy(n, j ,i)/(l 
+alpha(n, j ,i)+alpha(n, j ,i)*u(n, j ,i))) ; 
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r(n,j,i) = s(n,j,i) - ures + vres 
+ nl + drdu*u(n, j , i) ; 

}// end for-j 
} // end for-i 
} // end if-n 
} // end newresidual 

The program moment allows for the calculation of multipole moments for any value of £ and 
m, using the appropriate Galerkin operator. For our purposes, we only calculate the monopole 
moment, which is equivalent to the mass correction to the ADM mass, and the i — m — 2 
multipole moment, which is related to the quadrupole moment. 

// moment. cxx - calculates quadrupole moments of field 
// for some l,m 

#include <assert.li> 

#include <f stream. h> 

#include <iostreain.h> 

#include <iomanip.h> 

#include <math.h> 

#include "grid.h" 
#include "adapt. h" 

// k denotes the grid point of the surface 
double moment (AGrid3D&; u, int 1, int m, int k) { 

extern const double PI; 
extern const int MG; 

int n = u. sideXO ; 
double len = u.LenXO; 
double h = u.hXO ; 

AGridSD psib; // psib = r~l*Y(l,m) in polynomial form 

psib. reset (n, len) ; // must have one extra grid point in psib 

psibar(psib,l,m) ; // determine psibar 

double sum = 0.0; 

//Faces 

for (int i = 2;i<k;i++) { 
forCint j = 2;j<k;j++) { 

sum = sum + h* ( (1 . 0/6* (psib . sy(k, i+1 ,j )+psib. sy(k, i-1 ,j) 
+psib . sy (k, i , j+l)+psib . sy (k, i , j-1) ) 
+1 . 0/12* (psib . sy (k, i+1 , j+1) +psib . sy (k, i+1 , j -1) 
+psib. sy(k, i-1 , j+1) 
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+psib.sy(k,i-l, j-l)))*u.sy(k+l,i, j) 
- (1 . 0/6* (psib . sy (k+1 , i+1 , j )+psib . sy (k+1 , i-1 , j ) 

+psib . sy (k+1 , i , j+1) +psib . sy (k+1 , i , j -1) ) 
+1. 0/12* (psib. sy (k+1, i+1, j+l)+psib. sy (k+1, i+1, j-1) 

+psib.sy(k+l,i-l, j+1) 

+psib.sy(k+l,i-l, j-l)))*u.sy(k,i, j)) ; 

sum = sum + h*( (1 . 0/6* (psib . sy (i+1 ,k,j)+psib. sy(i-l ,k,j) 

+psib. sy(i ,k, j+l)+psib. sy(i ,k, j-1)) 
+1 .0/12*(psib. sy(i+l,k, j+l)+psib.sy(i+l,k, j-1) 

+psib. sy(i-l ,k, j+1) 

+psib.sy(i-l,k, j-l)))*u.sy(i,k+l, j) 
-(1 .0/6*(psib. sy(i+l,k+l , j)+psib. sy(i-l,k+l, j) 

+psib. sy(i ,k+l , j+l)+psib . sy(i ,k+l , j-1) ) 
+1.0/12*(psib.sy(i+l,k+l, j+l)+psib.sy(i+l,k+l, j-1) 

+psib.sy(i-l,k+l, j+1) 

+psib.sy(i-l,k+l, j-l)))*u.sy(i,k, j)) ; 

sum = sum + h* ( (1 . 0/6* (psib . sy (i+1 ,j ,k)+psib. sy (i-1 ,j ,k) 
+psib.sy(i, j+l,k)+psib.sy(i, j-l,k)) 
+1.0/12*(psib.sy(i+l, j+l,k)+psib.sy(i+l, j-l,k) 
+psib.sy(i-l, j+l,k) 
+psib.sy(i-l, j-l,k)))*u. sy(i, j ,k+l) 
-(1.0/6*(psib.sy(i+l, j ,k+l)+psib.sy(i-l, j ,k+l) 

+psib.sy(i, j+l,k+l)+psib.sy(i, j-l,k+l)) 
+1.0/12*(psib.sy(i+l, j+l,k+l)+psib.sy(i+l, j-l,k+l) 
+psib.sy(i-l, j+l,k+l) 
+psib.sy(i-l, j-l,k+l)))*u.sy(i, j ,k)) ; 
} // end for-j 
} // end for-i 

// symmetry edges 
for(int i =2;i<k;i++) { 
// (i,l,k) edge 

sum = sum + 1 . 0/2*h* ( (1 . 0/6* (psib . sy (i+1 , 1 ,k) 

+psib. sy(i-l , 1 ,k)+psib. sy(i ,2,k)+psib . sy(i ,0,k) ) 
+1.0/12* (psib. sy (i+1, 2, k)+psib.sy (i+1, 0,k) 

+ps ib . sy ( i- 1 , 2 , k) +psib . sy ( i- 1 , , k) ) ) *u . sy ( i , 1 , k+1 ) 
- (1.0/6* (psib. sy (i+1, 1, k+1) +psib.sy (i-1, 1, k+1) 

+psib.sy(i,2,k+l)+psib.sy(i,0,k+l)) 
+1.0/12*(psib.sy(i+l,2,k+l)+psib.sy(i+l,0,k+l) 

+psib.sy(i-l,2,k+l)+psib.sy(i-l,0,k+l)))*u.sy(i,l,k)) ; 
// (l,i,k) edge 

sum = sum + 1 . 0/2*h* ( (1 . 0/6* (psib . sy(l , i+1 ,k) 

+psib .sy(l,i-l,k) +psib . sy ( 2 , i , k) +ps ib . sy (0 , i , k) ) 
+1 . 0/12* (psib . sy (2 , i+1 ,k) +psib . sy (0 , i+1 , k) 

+psib.sy(2,i-l,k)+psib.sy(0,i-l,k)))*u.sy(l,i,k+l) 
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-(1.0/6*(psib.sy(l,i+l,k+l)+psib.sy(l,i-l,k+l) 

+psib.sy(2,i,k+l)+psib.sy(0,i,k+l)) 
+1.0/12*(psib.sy(2,i+l,k+l)+psib.sy(0,i+l,k+l) 

+psib.sy(2,i-l,k+l)+psib.sy(0,i-l,k+l)))*u.sy(l,i,k)) ; 

// (i,k,l) edge 

sum = sum + 1 . 0/2*h*( (1 . 0/6*(psib. sy(i+l ,k, 1) 

+psib . sy(i-l ,k, l)+psib . sy (i ,k,2)+psib . sy (i ,k,0) ) 
+1.0/12*(psib.sy(i+l,k,2)+psib.sy(i+l,k,0) 

+psib.sy(i-l,k,2)+psib.sy(i-l,k,0)))*u.sy(i,k+l,l) 
-(1.0/6*(psib.sy(i+l,k+l,l)+psib.sy(i-l,k+l,l) 

+psib.sy(i,k+l,2)+psib.sy(i,k+l,0)) 
+1.0/12*(psib.sy(i+l,k+l,2)+psib.sy(i+l,k+l,0) 

+psib.sy(i-l,k+l,2)+psib.sy(i-l,k+l,0)))*u.sy(i,k,l)) ; 

// (l,k,i) edge 

sum = sum + 1 . 0/2*h*( (1 . 0/6*(psib. sy(l ,k, i+1) 

+psib . sy(l ,k, i-l)+psib. sy (2 ,k, i)+psib . sy (0,k, i) ) 
+1.0/12*(psib.sy(2,k,i+l)+psib.sy(0,k,i+l) 

+psib.sy(2,k,i-l)+psib.sy(0,k,i-l)))*u.sy(l,k+l,i) 
-(1.0/6*(psib.sy(l,k+l,i+l)+psib.sy(l,k+l,i-l) 

+psib.sy(2,k+l,i)+psib.sy(0,k+l,i)) 
+1.0/12*(psib.sy(2,k+l,i+l)+psib.sy(0,k+l,i+l) 

+psib.sy(2,k+l,i-l)+psib.sy(0,k+l,i-l)))*u.sy(l,k,i)) ; 

// (k,i,l) edge 

sum = sum + 1 . 0/2*h*( (1 . 0/6*(psib. sy(k, i+1 , 1) 

+psib. sy(k, i-1 , l)+psib. sy(k, i ,2)+psib . sy (k, i,0) ) 
+1.0/12*(psib.sy(k,i+l,2)+psib.sy(k,i+l,0) 

+psib . sy (k , i-1 , 2) +psib . sy (k , i-1 , 0) ) ) *u . sy (k+1 , i , 1) 
- (1 . 0/6* (psib . sy (k+1 , i+1 , l)+psib . sy (k+1 , i-1 , 1) 

+psib . sy (k+1 , i , 2) +psib . sy (k+1 , i , 0) ) 
+1 . 0/12* (psib . sy (k+1 , i+1 , 2)+psib . sy (k+1 , i+1 , 0) 

+psib . sy (k+1 , i-1 , 2)+psib . sy (k+1 , i-1 , 0) ) ) *u. sy (k, i , 1) ) ; 

// (k,l,i) edge 

sum = sum + 1 . 0/2*h*( (1 . 0/6*(psib. sy(k,2, i) 

+psib . sy (k,0, i)+psib . sy(k, 1 , i+l)+psib . sy (k, 1 , i-1) ) 
+1.0/12*(psib.sy(k,2,i+l)+psib.sy(k,2,i-l) 

+psib.sy(k,0,i+l)+psib.sy(k,0,i-l)))*u.sy(k+l,l,i) 
- (1 . 0/6* (psib . sy (k+1 , 2 , i) +psib . sy (k+1 , , i) 

+psib . sy (k+1 , 1 , i+l)+psib . sy (k+1 , 1 , i-1) ) 
+1.0/12*(psib.sy(k+l,2,i+l)+psib.sy(k+l,2,i-l) 

+psib.sy(k+l,0,i+l)+psib.sy(k+l,0,i-l)))*u.sy(k,l,i)) ; 
} //end for-i 



// interior symmetry corners 



int j = 1 ; 

// (1,1, k), (k,l,l) and (l,k,l) 

sum = sum + 1 . 0/4*h* ( (1 . 0/6* (psib . sy (i+1 , j ,k) 

+psib . sy (i-1 , j ,k)+psib . sy(i , j+1 ,k)+psib . sy(i , j-1 ,k) ) 
+1 . 0/12* (psib . sy (i+1 , j+1 ,k)+psib . sy (i+1 , j-1 ,k) 

+psib.sy(i-l, j+l,k)+psib.sy(i-l, j-l,k)))*u.sy(i, j ,k+l) 
-(1.0/6*(psib.sy(i+l, j ,k+l)+psib . sy(i-l , j ,k+l) 

+psib. sy(i , j+1 ,k+l)+psib . sy(i , j-1 ,k+l) ) 
+1.0/12*(psib.sy(i+l, j+l,k+l)+psib.sy(i+l, j-l,k+l) 

+psib.sy(i-l, j+l,k+l) 

+psib.sy(i-l, j-l,k+l)))*u.sy(i, j ,k)) 
+1 . 0/4*h* ( (1 . 0/6* (psib . sy (k , i+1 , j ) +psib . sy (k, i-1 , j ) 

+psib . sy (k, i , j+l)+psib . sy(k, i , j-1) ) 
+1.0/12*(psib.sy(k,i+l, j+l)+psib.sy(k,i+l, j-1) 

+psib.sy(k,i-l,j+l)+psib.sy(k,i-l,j-l)))*u.sy(k+l,i,j) 
- (1 . 0/6* (psib . sy (k+1 , i+1 , j ) +psib . sy (k+1 , i-1 , j ) 

+psib. sy(k+l , i , j+l)+psib . sy(k+l , i , j-1)) 
+1 . 0/12* (psib . sy (k+1 , i+1 , j+l)+psib . sy (k+1 , i+1 , j-1) 

+psib.sy(k+l,i-l, j+1) 

+psib . sy (k+1 , i-1 , j -1) ) ) *u . sy (k, i , j ) ) 
+1 . 0/4*h* ( ( 1 . 0/6* (psib . sy ( i+1 , k , j ) +psib . sy ( i- 1 , k , j ) 

+psib . sy (i ,k, j+l)+psib .sy(i,k,j-l)) 
+1.0/12*(psib.sy(i+l,k, j+l)+psib.sy(i+l,k, j-1) 

+psib.sy(i-l,k, j+l)+psib.sy(i-l,k, j-l)))*u.sy(i,k+l, j) 
- (1. 0/6* (psib. sy (i+1, k+1, j)+psib. sy (i-1, k+1, j) 

+psib.sy(i,k+l, j+l)+psib.sy(i,k+l, j-1)) 
+1 . 0/12* (psib. sy (i+1 , k+1 ,j+l)+psib. sy (i+1 , k+1 , j-1) 

+psib.sy(i-l,k+l, j+1) 

+psib.sy(i-l,k+l, j-l)))*u.sy(i,k, j)) ; 

// boundary edges 
for(int i = 2;i<k;i++) { 

// (k,k,i) edge 

sum = sum + h*( (1 .0/6*(psib. sy(k,k, i+l)+psib . sy(k,k-l , i) 

+psib . sy (k , k , i- 1) ) 
+1 . 0/12* (psib . sy (k,k-l , i-1) 

+psib.sy(k,k-l,i+l)))*u.sy(k+l,k,i) 
+(1 .0/6*(psib.sy(k,k,i+l)+psib.sy(k-l,k,i) 

+psib. sy(k,k, i-1)) 
+1.0/12* (psib. sy(k-l,k, i-1) 

+psib.sy(k-l,k,i+l)))*u.sy(k,k+l,i) 
+ (1.0/6* (psib. sy(k,k,i)) 
+1.0/12* (psib. sy(k,k, i+1) 

+psib.sy(k,k,i-l)))*u.sy(k+l,k+l,i) 
- (1.0/6* (psib. sy(k, k+1, i+1) +psib.sy(k-l, k+1, i) 



148 



COMPUTER CODE 



+psib.sy(k,k+l,i-l)+psib.sy(k+l,k,i-l) 
+psib. sy(k+l ,k, i+l)+psib . sy(k+l ,k+l , i) 
+psib . sy(k+l ,k-l , i) ) 
+1.0/12*(psib.sy(k+l,k+l,i-l)+psib.sy(k-l,k+l,i-l) 
+psib. sy(k-l ,k+l , i+l)+psib . sy(k+l ,k-l , i-1) 
+psib . sy (k+1 , k- 1 , i+1) 
+psib.sy(k+l,k+l,i+l)))*u.sy(k,k,i)) ; 

// (k,i,k) edge 

sum = sum + h*((1.0/6*(psib.sy(k,i+l,k)+psib.sy(k,i,k-l) 

+psib.sy(k,i-l,k)) 
+1 . 0/12* (psib . sy(k, i-1 , k-1) 

+psib.sy(k,i+l,k-l)))*u. sy(k+l,i,k) 
+ ( 1 . 0/6* (ps ib . sy (k , i+1 , k) +psib . sy (k-1 , i , k) 

+psib . sy(k, i-1 ,k) ) 
+1 . 0/12* (psib . sy (k-1 , i-1 ,k) 

+psib.sy(k-l,i+l,k)))*u.sy(k,i,k+l) 
+(1.0/6*(psib.sy(k,i,k)) 
+1.0/12* (psib. sy(k, i+1, k) 

+psib.sy(k,i-l,k)))*u.sy(k+l,i,k+l) 
- (1 . 0/6* (psib . sy (k, i+1 ,k+l)+psib . sy (k-1 , i ,k+l) 

+psib.sy(k,i-l,k+l)+psib.sy(k+l,i-l,k) 

+psib . sy (k+1 , i+1 ,k) +psib . sy (k+1 , i ,k+l) 

+psib.sy(k+l,i,k-l)) 
+1. 0/12* (psib. sy (k+1, i-1, k+1) +psib.sy (k-1, i-1, k+1) 

+psib.sy(k-l,i+l,k+l)+psib.sy(k+l,i-l,k-l) 

+psib.sy(k+l,i+l,k-l) 

+psib.sy(k+l,i+l,k+l)))*u.sy(k,i,k)) ; 

// (i,k,k) edge 

sum = sum + h*((1.0/6*(psib.sy(i+l,k,k)+psib.sy(i,k,k-l) 

+psib. sy(i-l ,k,k)) 
+1.0/12* (psib. sy (i-1, k, k-1) 

+psib.sy(i+l,k,k-l)))*u. sy(i,k+l,k) 
+ ( 1 . 0/6* (ps ib . sy ( i+1 , k , k) +psib . sy ( i , k- 1 , k) 

+psib. sy(i-l ,k,k) ) 
+1 . 0/12* (psib . sy(i-l ,k-l ,k) 

+psib.sy(i+l,k-l,k)))*u.sy(i,k,k+l) 
+(1.0/6*(psib.sy(i,k,k)) 
+1.0/12* (psib. sy (i+1, k,k) 

+psib.sy(i-l,k,k)))*u.sy(i,k+l,k+l) 
- (1.0/6* (psib. sy (i+1, k,k+l)+psib.sy(i, k-1, k+1) 

+psib. sy(i-l ,k,k+l)+psib . sy (i-1 ,k+l ,k) 

+psib. sy(i+l,k+l,k)+psib.sy(i,k+l,k+l) 

+psib.sy(i,k+l,k-l)) 
+1. 0/12* (psib. sy (i-1, k+1, k+1) +psib.sy (i-1, k-1, k+1) 

+psib.sy(i+l,k-l,k+l)+psib.sy(i-l,k+l,k-l) 
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+psib. sy(i+l ,k+l ,k-l) 
+psib.sy(i+l,k+l,k+l)))*u.sy(i,k,k)) ; 
} // end for-i 

// boundary corners 

// (k,k,l) corner 

sum = sum + 0.5*h*((1.0/6*(psib.sy(k,k,2)+psib.sy(k,k-l,l) 

+psib . sy (k,k, 0) ) 
+1.0/12*(psib.sy(k,k-l,0) 

+psib.sy(k,k-l,2)))*u.sy(k+l,k,l) 
+(1.0/6*(psib.sy(k,k,2)+psib.sy(k-l,k,l) 

+psib . sy (k,k, 0) ) 
+1 . 0/12* (psib . sy (k-1 , k , 0) 

+psib.sy(k-l,k,2)))*u.sy(k,k+l,l) 
+(1.0/6*(psib.sy(k,k,l)) 
+1.0/12*(psib.sy(k,k,2) 

+psib.sy(k,k,0)))*u.sy(k+l,k+l,l) 
- ( 1 . 0/6* (psib . sy (k , k+ 1 , 2) +ps ib . sy (k- 1 , k+1 , 1) 

+psib.sy(k,k+l,0)+psib.sy(k+l,k,0) 

+psib . sy (k+1 , k , 2) +psib . sy (k+1 , k+1 , 1 ) 

+psib.sy(k+l,k-l,l)) 
+1 . 0/12* (psib . sy (k+1 , k+1 , 0) +psib . sy (k-1 , k+1 , 0) 

+psib . sy (k-1 , k+1 , 2) +psib . sy (k+1 ,k-l , 0) 

+psib . sy (k+1 , k-1 , 2) 

+psib.sy(k+l,k+l,2)))*u.sy(k,k,l)) ; 

// (k,l,k) corner 

sum = sum + . 5*h* ( (1 . 0/6*(psib. sy(k,2,k)+psib. sy(k, 1 ,k-l) 

+psib . sy (k, ,k) ) 
+1.0/12* (psib. sy(k,0, k-1) 

+psib.sy(k,2,k-l)))*u.sy(k+l,l,k) 
+(1.0/6*(psib.sy(k,2,k)+psib.sy(k-l,l,k) 

+psib.sy(k,0,k)) 
+1 . 0/12* (psib . sy (k-1 , ,k) 

+psib.sy(k-l,2,k)))*u.sy(k,l,k+l) 
+(1.0/6*(psib.sy(k,l,k)) 
+1.0/12*(psib.sy(k,2,k) 

+psib.sy(k,0,k)))*u.sy(k+l,l,k+l) 
- (1 . 0/6* (psib . sy (k, 2 ,k+l)+psib . sy (k-1 , 1 ,k+l) 

+psib.sy(k,0,k+l)+psib.sy(k+l,0,k) 

+psib . sy (k+1 , 2 , k) +psib . sy (k+1 , 1 , k+1 ) 

+psib.sy(k+l,l,k-l)) 
+1 . 0/12* (psib . sy (k+1 , ,k+l)+psib . sy (k-1 , ,k+l) 

+psib.sy(k-l ,2,k+l)+psib.sy(k+l,0,k-l) 

+psib.sy(k+l,2,k-l) 

+psib.sy(k+l,2,k+l)))*u.sy(k,l,k)) ; 
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// (l,k,k) corner 

sum = sum + . 5*h* ( (1 . 0/6*(psib. sy(2,k,k)+psib. sy(l ,k,k-l) 

+psib.sy(0,k,k)) 
+1.0/12*(psib.sy(0,k,k-l) 

+psib.sy(2,k,k-l)))*u.sy(l,k+l,k) 
+ (1 . 0/6* (psib . sy (2 , k , k) +psib . sy (1 , k-1 , k) 

+psib . sy(0,k,k) ) 
+1.0/12* (psib. sy(0, k-1, k) 

+psib.sy(2,k-l,k)))*u.sy(l,k,k+l) 
+(1.0/6*(psib.sy(l,k,k)) 
+1.0/12*(psib.sy(2,k,k) 

+psib.sy(0,k,k)))*u.sy(l,k+l,k+l) 
- ( 1 . 0/6* (psib . sy (2 , k , k+ 1 ) +ps ib . sy ( 1 , k-1 , k+1 ) 

+psib.sy(0,k,k+l)+psib.sy(0,k+l,k) 

+psib.sy(2,k+l,k)+psib.sy(l,k+l,k+l) 

+psib.sy(l,k+l,k-l)) 
+1. 0/12* (psib. sy(0, k+1, k+1) +psib.sy(0, k-1, k+1) 

+psib.sy(2,k-l,k+l)+psib.sy(0,k+l,k-l) 

+psib.sy(2,k+l,k-l) 

+psib.sy(2,k+l,k+l)))*u.sy(l,k,k)) ; 

// outermost corner 

sum = sum + h*( (1 . 0/6* (psib . sy(k,k,k-l)+psib . sy(k, k-1 ,k) ) 
+1.0/12*psib.sy(k,k-l,k-l))*u.sy(k+l,k,k) 
+ (1.0/6* (psib. sy(k,k, k-1) +psib.sy (k-1, k,k)) 
+1.0/12*psib.sy(k-l,k,k-l))*u.sy(k,k+l,k) 
+ ( 1 . 0/6* (psib . sy (k , k-1 , k) +psib . sy (k-1 , k , k) ) 
+1.0/12*psib.sy(k-l,k-l,k))*u.sy(k,k,k+l) 
+ (1 .0/6*psib. sy(k,k,k) 

+1.0/12*psib.sy(k,k,k-l))*u.sy(k+l,k+l,k) 
+(1.0/6*psib.sy(k,k,k) 

+1.0/12*psib.sy(k,k-l,k))*u.sy(k+l,k,k+l) 
+ ( 1 . 0/6*psib . sy (k , k , k) 

+1.0/12*psib.sy(k-l,k,k))*u.sy(k,k+l,k+l) 

+(1.0/12*psib.sy(k,k,k))*u.sy(k+l,k+l,k+l) 

- (1.0/6* (psib. sy (k-1, k, k+1) +psib.sy (k-1, k+1, k) 

+psib. sy(k,k-l ,k+l)+psib. sy(k,k+l ,k-l) 

+psib . sy (k , k+1 , k+1 ) +psib . sy (k+1 , k-1 , k) 

+psib.sy(k+l,k,k-l)+psib.sy(k+l,k,k+l) 

+psib . sy (k+1 , k+1 , k) ) 
+1. 0/12* (psib. sy (k-1, k-1, k+l)+psib.sy (k-1, k+1, k-1) 

+psib.sy(k-l,k+l,k+l)+psib.sy(k+l,k-l,k+l) 

+psib.sy(k+l,k+l,k+l)+psib.sy(k+l,k+l,k-l) 

+psib.sy(k+l,k-l,k-l)))*u.sy(k,k,k)) ; 

// Now, add all contributions together to determine the 
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// multipole moment... 

// Don't forget to multiply by 8 for the octant! 

double norm = -1 . 0/sqrt (PI) ; // Ensures phi(0,0) for bh's 

double mom = 0.0; // ensures moment is zero 

mom = 8.0*norm/(2*l+l)*sum; 

return (mom) ; 

} 

The function psihar simply fills an array with radial polynomials which are dependent upon 
spherical harmonics, depending upon the values of and m: 

// psibar.cxx - code that determines the polynomial form 
// of r"l*Y(l,m) 

#include <assert.h> 

#include <f stream. h> 
#include <iostream.h> 
#include <iomaiiip.h> 
#include <math.h> 

#include "grid.h" 
#include "adapt. h" 

void psibar (AGrid3D& psib, int 1, int m) 
{ 

extern const double PI; 
int n = psib. sideXO ; 
double h = psib.hXO; 

for (int i=l ; i<=n; i++) { 
for(int j=l; j<=n; j++) { 
for (int k=l;k<=n;k++) { 

// Note "x" is the symmetry axis!! 

double X = h*(i-l) ; 
double y = h*(j-l) ; 
double z = h*(k-l) ; 



if(l==0) i 

psib(i,j,k) = 1. 0/sqrt (4*PI) ; 

} 
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COMPUTER CODE 



else if(l==l) { 

if(m==0) { 

psib(i,j,k) = 1.0*sqrt(3.0/(4*PI))*z; 
} // end if m=0 
else if(m==l) { 

psib(i,j,k) = 1.0*sqrt(3.0/(8*PI))*x; 
}// end if m=l 
else { 

psib(i,j,k) = -1.0*sqrt(3.0/(8*PI))*x; 
}// end if m=-l 

} // end if 1=1 

else if(l==2) { 

if(m==0) { 

psib(i,j,k) = -0.5*sqrt(5.0/(4*PI))*(x*x+y*y-2*z*z) ; 
} // end if m=0 



else if(m==l) { 

psib(i,j,k) = -1.0*sqrt(15.0/(8*PI))*x*y; 
} // end if m=l 
else if(m==-l) { 

psib(i,j,k) = 1.0*sqrt(15.0/(8*PI))*x*y; 
}// end if m=-l 

else if(m==2) { 

psib(i,j,k) = 1.0/4*sqrt(15.0/(2*PI))*(x*x-y*y) ; 
} // end if m=2 
else { 

psib(i,j,k) = 1.0/4*sqrt(15.0/(2*PI))*(x*x-y*y) ; 
} // end if m=-2 



} // end if -1=2 
} //end for-k 
} // end for-j 
} // end for-i 
} // end psibar 

The function symadaptrstrct is a adaptive grid restriction routine, designed to restrict only 
some of the arrays to larger adaptive levels: 

#include <assert.h> 
#include <f stream. h> 
#include <iostreain.h> 
#include <iomanip.h> 
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#include <inath.h> 
#include "grid.h" 
#include "adapt. h" 

extern int MG; 

// Half -weighting restriction for non-mg levels 
void symadaptrstrct (AGrid3D& vl, AGridSDfe vs) 
{ 

int il, is, jl, js, kl, ks; 
int nl = vl.sideXO; 
int N = nl/2-1; 

if (nl==pow(2,MG)+3) N = nl/2-1; 
else N = nl/2; 

// Calculate the interior 

for(ks=l,kl=l; kl<=N; kl++,ks+=2) { 
for(js=l,jl=l; jl<=N; jl++,js+=2) { 
for(is=l,il=l; il<=N; il++,is+=2) { 
vl(il,jl,kl) = 0. 125*(vs.sy(is, js,ks) 

+0 . 5* (vs . sy (is+1 , js ,ks)+vs . sy (is-1 , j s ,ks) 
+VS . sy(is , js+1 ,ks)+vs . sy (is , js-1 ,ks) 
+VS . sy (is , j s , ks+1) +VS . sy (is , j s , ks-1) ) 
+0 . 25* (vs . sy (is , j s+1 , ks+1) +vs . sy (is , j s+1 , ks-1) 
+VS . sy (is, js-1 , ks+1) +vs . sy(is , js-1 , ks-1) 
+VS . sy(is+l , js ,ks+l)+vs . sy(is+l , js ,ks-l) 
+VS . sy(is-l , js ,ks+l)+vs . sy(is-l , js ,ks-l) 
+VS . sy(is+l , js+1 ,ks)+vs . sy( is+1 , js-1 ,ks) 
+vs.sy(is-l, js+1, ks)+vs.sy( is-1, js-1, ks)) 
+0 . 125* (vs . sy (is+1 , js+1 ,ks+l)+vs . sy (is+1 , js+1 , ks-1) 
+vs.sy(is+l, js-1, ks+1) +vs.sy (is+1, js-1, ks-1) 
+VS . sy(is-l, js+1 , ks+1) +vs . sy (is-1 ,j s+1 , ks-1) 
+vs.sy(is-l, js-1, ks+1) +vs.sy (is-1, js-1, ks-1))) ; 
} // end for-is 
} // end for-js 
} // end for-ks 
} // end symadaptrstrct 

Likewise, the program symresrstrct is a adaptive multigrid restriction routine designed 
specifically to restrict residuals to larger adaptive levels: 

#include <assert.h> 

#include <f stream. h> 

#include <iostreaiii.h> 

#include <iomcLnip.h> 

#include <math.h> 
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#include "grid.h" 
#include "adapt. h" 

// Full-weighting restriltion of residuals 
// for use with trueamg.cxx 

void symresrstrct(AGrid3D& vl, AGrid3D& vs) 
{ 

int il, lis, jl, js, kl, ks; 
int ns = vs.sideXO; 

// Calculate the interior 
for(ks=l,kl=l; ks<=ns-2; kl++,ks+=2) { 
for(js=l, jl=l; js<=ns-2; jl++,js+=2) { 

for(iis=l,il=l; iis<=ns-2; il++,iis+=2) { 
vl(il,jl,kl) = 0. 125*(vs.sy(iis, js,ks) 

+0 . 5*(vs . sy(iis+l , js ,ks)+vs . sy(iis-l , js ,ks) 
+vs . sy (iis , js+1 ,ks)+vs . sy (iis , js-1 ,ks) 
+vs . sy (iis , js ,ks+l)+vs . sy (iis , js ,ks-l) ) 
+0.25*(vs . sy (iis, js+1, ks+l)+vs. sy (iis, js+1, ks-1) 
+VS . sy(iis, js-l,ks+l)+vs . sy (iis, js-1, ks-1) 
+VS . sy(iis+l, js,ks+l)+vs . sy(iis+l , js,ks-l) 
+VS . sy (iis-1 , js ,ks+l)+vs . sy(iis-l , js ,ks-l) 
+VS . sy (iis+1 , js+1 ,ks)+vs .sy(iis+l,js-l,ks) 
+VS . sy (iis-1 , js+1 ,ks)+vs . sy (iis-1 , js-1 ,ks) ) 
+0 . 125* (vs . sy (iis+1 , js+1 ,ks+l)+vs . sy (iis+1 , js+1 , ks-1) 
+vs.sy(iis+l, js-1, ks+l)+vs.sy (iis+1, js-1, ks-1) 
+VS . sy (iis-1 , js+1 ,ks+l)+vs. sy (iis-1 , js+1, ks-1) 
+vs.sy(iis-l, js-1, ks+l)+vs.sy (iis-1, js-1, ks-1))) ; 
} // end for-iis 
} // end for-js 
} // end for-ks 
} // end symresrstrct 

The program symrstrct is a restriction routine designed specifically for multigrid levels only: 

#include <assert.h> 
#include <f stream. h> 
#include <iostreain.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include "adapt. h" 

// Half -weighting restriction 

void symrstrct (AGrid3D& vc, AGrid3D& vf) 

{ 

int ic, iif, jc, jf, kc, kf ; 
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int nc = vc.sideXO; 
int nf = vf.sideXO; 

// Calculate the interior 

for(kf=l,kc=l; kc<nc; kc++,kf+=2) { 
for(jf=l,jc=l; jc<nc; jc++,jf+=2) { 
f or(iif =1 , ic=l ; ic<nc; ic++,iif+=2) { 
vc(ic,jc,kc) = 0. 125*(vf .sy(iif , jf ,kf ) 

+0.5*(vf .sy(iif+l,jf ,kf)+vf .sy(iif-l, jf ,kf) 
+vf .syCiif ,jf+l,kf)+vf .syCiif ,jf-l,kf) 
+vf . syCiif ,jf ,kf+l)+vf . syCiif ,jf ,kf-l) ) 
+0.25*Cvf .syCiif ,jf+l,kf+l)+vf .syCiif ,jf+l,kf-l) 
+vf .syCiif ,jf-l,kf+l)+vf .syCiif ,jf-l,kf-l) 
+vf . syCiif +l,jf,kf+l)+vf . syCiif +l,jf,kf-l) 
+vf .syCiif-l,jf.kf+l)+vf .syCiif -l,jf,kf-l) 
+vf .syCiif +l,jf+l,kf)+vf .syCiif +l,jf-l.kf) 
+vf . syCiif -l,jf+l,kf) +vf. syCiif -ljf-l,kf) ) 
+0.125*Cvf . syCiif +l,jf+l>kf +l)+vf. syCiif +l,jf+l.kf-l) 
+vf . syCiif +l,jf-l,kf +l)+vf. syCiif +l,jf-l,kf-l) 
+vf .syCiif-l,jf+l,kf+l)+vf .syCiif -l,jf+l,kf-l) 
+vf .syCiif-l,jf-l.kf+l)+vf .syCiif-l,jf-l,kf-l))) ; 
} // end for-iif 
} // end for-jf 
} // end for-kf 

// Calculate the corners 

vcCnc,nc ,nc)= 8 . 0/27 . 0* Cvf . sy Cnf ,nf ,nf ) 
+0.5*Cvf .syCnf-l,nf ,nf )+vf .syCnf ,nf-l,nf ) 

+vf .syCnf ,nf ,nf-l)) 
+0.25* Cvf . sy Cnf , nf - 1 , nf - 1) +vf . sy Cnf - 1 , nf , nf - 1) 

+vf . sy Cnf-1 ,nf-l ,nf ) ) 
+0.125*Cvf .syCnf-l,nf-l,nf-l))) ; 

// Calculate the edges 

for Ckc=l , kf =1 ; kc<nc ; kc++ , kf +=2) { 

vcCkc,nc,nc)= 2 . 0/9 . 0* Cvf . sy Ckf ,nf ,nf ) 

+0 . 5* Cvf . sy Ckf +1 , nf , nf ) +vf . sy Ckf -1 , nf , nf ) 

+vf . sy Ckf , nf - 1 , nf ) +vf . sy Ckf , nf , nf - 1) ) 
+0 . 25* Cvf . sy Ckf , nf -1 , nf -1) +vf . sy Ckf +1 , nf , nf -1) 

+vf . sy Ckf-1 ,nf ,nf-l)+vf . syCkf +1 ,nf-l ,nf ) 

+vf .syCkf-l,nf-l,nf )) 
+0.125*Cvf .sy Ckf +l,nf-l,nf -l)+vf.sy Ckf-1, nf-l,nf-l))) ; 
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vc(nc,kc,nc)= 2 . 0/9 . 0*(vf . sy(nf ,kf ,nf ) 
+0 . 5* (vf . sy (nf -1 , kf , nf ) +vf . sy (nf , kf +1 , nf ) 

+vf . sy (nf , kf - 1 , nf ) +vf . sy (nf , kf , nf - 1) ) 
+0 . 25* (vf . sy (nf , kf +1 , nf - 1) +vf . sy (nf , kf - 1 , nf -1) 

+vf .sy(nf-l,kf ,nf-l)+vf .sy(nf-l,kf+l,nf ) 

+vf .sy(nf-l,kf-l,nf)) 
+0.125*(vf .sy(nf-l,kf+l,nf-l)+vf .sy(nf-l,kf-l,nf-l))) ; 

vc (nc , nc , kc) = 2 . 0/9 . 0* (vf . sy (nf , nf , kf ) 

+0.5*(vf .sy(nf-l,nf ,kf )+vf .sy(nf ,nf-l,kf ) 

+vf . sy (nf , nf , kf +1) +vf . sy (nf , nf , kf - 1 ) ) 
+0.25*(vf .sy(nf ,nf-l,kf+l)+vf .sy(nf ,nf-l,kf-l) 
+vf . sy (nf -1 , nf , kf +1) +vf . sy (nf -1 , nf , kf -1) 
+vf .sy(nf-l,nf-l,kf)) 
+0.125*(vf .sy(nf-l,nf-l,kf+l)+vf .sy(nf-l,nf-l,kf-l))) ; 
} // end for-kc 

// Calculate the faces 

f or ( j c=l , jf =1 ; j c<nc ; j C++ , jf +=2) { 
for (kc=l , kf =1 ; kc<nc ; kc++ , kf +=2) { 

vc(jc,nc,kc)= 1.0/6.0*(vf .sy(jf ,nf ,kf ) 

+0.5*(vf .sy(jf+l,nf ,kf )+vf .sy(jf-l,nf ,kf) 
+vf . sy ( j f , nf -1 , kf ) +vf . sy ( j f , nf , kf +1) 
+vf .sy(jf ,nf ,kf-l)) 
+0.25*(vf .sy(jf ,nf-l,kf+l)+vf .sy(jf ,nf-l,kf 
+vf . sy ( j f +1 , nf , kf + 1) +vf . sy ( j f +1 , nf , kf - 1) 
+vf .sy(jf-l,nf ,kf+l)+vf .sy(jf-l,nf ,kf-l) 
+vf .sy(jf+l,nf-l,kf)+vf .sy(jf-l,nf-l,kf )) 
+0.125*(vf .sy(jf+l,nf-l,kf+l)+vf .sy(jf+l,nf 
+vf .sy(jf-l,nf-l,kf+l)+vf .sy(jf-l,nf-l,kf 

vc(nc, jc,kc)= 1.0/6.0*(vf .sy(nf , jf ,kf ) 

+0 . 5* (vf . sy (nf -1 , jf ,kf ) +vf . sy (nf , jf +1 ,kf ) 
+vf .sy(nf , jf-l,kf )+vf .sy(nf , jf ,kf+l) 
+vf .sy(nf ,jf ,kf-l)) 
+0 . 25* (vf . sy (nf , j f +1 , kf +1) +vf . sy (nf , j f +1 , kf -1) 
+vf . sy (nf , j f - 1 , kf + 1) +vf . sy ( nf , j f - 1 , kf - 1) 
+vf .sy(nf-l, jf ,kf+l)+vf .sy(nf-l, jf ,kf-l) 
+vf .sy(nf-l,jf+l,kf)+vf .sy(nf-l,jf-l,kf)) 
+0.125*(vf .sy(nf-l,jf+l,kf+l)+vf .sy(nf-l,jf+l,kf-l) 
+vf . sy (nf -1 , jf -1 ,kf +1) +vf . sy (nf -1 , j f -1 ,kf -1) ) ) ; 

vc (kc , j c , nc) = 1.0/6.0* (vf . sy (kf , j f , nf ) 
+0.5*(vf .sy(kf+l,jf ,nf)+vf .sy(kf-l,jf ,nf) 
+vf .sy(kf , jf+l,nf )+vf .sy(kf , jf-l,nf ) 



-1) 



-l,kf-l) 
■1))); 
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+vf .sy(kf ,jf ,nf-l)) 
+0.25*(vf .sy(kf ,jf+l,nf-l)+vf .sy(kf ,jf-l,nf-l) 
+vf .sy(kf+l, jf ,nf-l)+vf .sy(kf-l, jf ,nf-l) 
+vf .sy(kf+l, jf+l,nf )+vf .sy(kf+l, jf-l,nf ) 
+vf .sy(kf-l, jf+l,nf)+vf .sy(kf-l, jf-l,nf)) 
+0 . 125* (vf . sy(kf +1 , jf +1 ,nf-l)+vf . sy (kf +1 , jf-1 ,nf-l) 
+vf .sy(kf-l,jf+l,nf-l)+vf .sy(kf-l,jf-l,nf-l))); 
} // end for-kc 
} // end for-jc 
} // end symrstrct 

The following program, adaptinterp, is designed to interpolate data from one adaptive level 
to a smaller adaptive level: 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include "adapt. h" 

// Coarse-to-fine prolongation by bilinear interpolation for 
// adaptive grid 

void adaptinterp (AGrid3D& a, AGrid3D& v) 
{ 

extern const int MG; 

int i, j, k, X, y, z; 
int n=a. sideXO ; 

f or (k=l ;k<=n;k+=2) { // we do hold the nc faces fixed 
for(j=l; j<=n; j+=2) { // identifies large to small 

// grid points 

for(i=l;i<=n;i+=2) { 
X = (i+l)/2; 
y = (j+l)/2; 
z = (k+l)/2; 
a(i,j,k) = v(x,y,z); 
} // end for-i 
} // end for-j 
} // end for-k 

for(k=l;k<=n;k+=2) { 

f or (j=l ; j<=n; j+=2) { // averages horizontally 
for(i=2;i<n;i+=2) { 

a(i,j,k) = 0.5*(a(i+l,j,k)+a(i-l,j,k)); 
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y 11 end for-i 
} // end for-j 

f or(j=2; j<n; j+=2){ // averages vertically 
for(i=l;i<=n;i++){ 

a(i,j,k) = 0.5*(a(i, j+l,k)+a(i, j-l,k)) ; 
} // end for-i 
} // end for-j 
} // end for-k 

for(k=2;k<n;k+=2) { // average "up" and "down" 
for(i=l;i<=n;i++) { 
for(j=l;j<=n;j++) { 

a(i,j,k) = 0.5*(a(i, j ,k+l)+a(i,j ,k-l)) ; 
} // end for-j 
} // end for-i 
} // end for-k 
} // end adapt interp 

The program interp interpolates from one multigrid level to a smaller multigrid level: 

#include <assert.h> 
#include <f stream. h> 
#include <iostreain.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include "adapt. h" 

// Coarse-to-fine prolongation by bilinear interpolation 

void interp (AGridSDfe af, AGrid3D& vc) 

{ 

int ic, iif, jc, jf, kc, kf ; 
int nf = af.sideXO; 
int nc = vc.sideXO; 

f or (kc=l ;kc<=nc ;kc++) { // we do not hold the nc faces fixed 
f or(jc=l; jc<=nc; jc++) { // identifies course to fine 

// grid points 

for(ic=l;ic<=nc;ic++) { 

af (2*ic-l,2*jc-l,2*kc-l) = vc(ic, jc,kc) ; 

} // end for-ic 
} // end for-j c 
kf = 2*kc-l; 

for(jf=l; jf<=nf ; jf+=2) { // averages horizontally 

for(iif=2;iif<nf ;iif+=2) { 

af (iif ,jf ,kf) = 0.5*(af (iif+l,jf ,kf)+af (iif-l,jf ,kf)); 

} // end for-iif 
} // end for-j f 
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f or(jf=2; jf <nf ; jf+=2){ // averages vertically 
f or (iif =1 ; iif <=nf ; iif ++) { 

af (iif Jf ,kf) = 0.5*(af (iif ,jf+l,kf)+af (iif ,jf-l,kf)); 
} // end for-iif 
} // end for-jf 
} // end for-kc 

for(kf=2;kf<nf ;kf+=2) { // average "up" and "down" 
for(iif=l;iif<=nf ;iif++) { 
for(jf=l;jf<=nf ;jf++) { 

af (iif ,jf ,kf) = 0.5*(af (iif ,jf ,kf+l)+af (iif ,jf ,kf-l)); 
} // end for-jf 
} // end for-iif 
} // end for-kf 
} // end interp 

The program gluegrid "pastes" together several adaptive levels, relegated to the equitorial 
plane, allowing the solution to be viewed over a region larger than the smallest adaptive level. It 
is not a necessary component in the application of the variational principle, but it is sometimes 
convenient to view the behavior of the field graphically: 

// gluegrid. cxx - function to "glue" several adaptive multigrid 
// levels together 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 

#include "grid.h" 
#include " adapt. h" 

// sm is the small grid, Ig is the large grid, lev is the 
// smallest level number 

void gluegrid (AGridSDfe usm, AGrid3D& ulg, int lev, int count) 
{ 

// ONLY WRITE DATA FOR EQUATORIAL PLANE ! ! ! ! 

// first read in the large grid data, and interpolate it to 
// a finer grid 

int jc,ic,iif , jf ; 
int nc=ulg. sideXO ; 
int nf = 2*nc-l; 
double len = ulg.LenXO; 
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AGridSD alg; // alg is a dummy array for gluing 

// solutions together 

alg . reset (nf , len) ; 

f or(jc=l; jc<=nc; jc++) { // identifies course to fine 

// grid points 

f or (ic=l ; ic<=nc ; ic++) { 

alg(2*ic-l,2*jc-l,l) = ulg(ic,jc,l) ; 
} // end for-ic 
} // end for-jc 

for(jf=l; jf<=nf ; jf+=2) { // averages horizontally 

for(iif=2;iif<nf ;iif+=2) { 

algCiif ,jf ,1) = 0.5*(alg(iif+l,jf ,l)+alg(iif-l.jf ,1)); 

} // end for-iif 
} // end for-jf 

f or(jf=2; jf <nf ; jf +=2){ // averages vertically 

f or (iif =1 ; iif <=nf ; iif ++) { 

algCiif ,jf ,1) = 0.5*(alg(iif ,jf+l,l)+alg(iif ,jf-l,l)); 

} // end for-iif 
} // end for-jf 

// Now alg contains the interpolated larger grid solution 
// Zero interior of larger solution, just to be "safe" 

int i,j; 

double h = usm.hXO; 



f or (i=l ; i<=nf / (pow (2 , count+2) ) +1 ; i++) { 

f or ( j =1 ; j <=nf / (pow (2 , count+2) ) +1 ; j ++) { 

alg(i,j,l) = 0.0; 
} // end for-j 
} // end for-i 

// Now glue together solutions, save into usm and write to a 
// file if lev == 1 

AGridSD bsm; // bsm is a dummy array 

bsm . reset (nf , len) ; 

for(i=l;i<=nf/(pow(2,count+2))+l;i++) { // size of interior 

// depends upon level 

for(j=l;j<=nf ;j++) { 

if (j<=nf/(pow(2, count+2) )+l) bsm(i,j,l) =usm(i,j,l); 



// zeroing interior 
// depends upon 
// the level . . . 
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else bsin(i,j,l) = alg(i,j,l); 
} // end for-j 
} // end for-i 

f or (i=nf / (pow (2 , count+2) ) +2 ; i<=nf ; i++) { 

for(j=l;j<=nf { 

bsin(i,j,l) = alg(i,j,l); 

} // end for-j 
} // end for-i 

usm. reset (nf , len) ; // reset usm to copy bsm into it... 

copyCusm.bsm) ; 

if(lev==l) { //if lev = 1, then write glued 
// solution to a file 

h = usm.hXO ; 

cout « "Set dgridSd in gnuplot to " « nf « endl; 

of stream output; 

output. open ("gluesoln.dat" , ios: :app| ios: :trunc) ; 

for(i=l;i<=nf ;i++) { 
for(j=l;j<=nf ;j++) { 

output « i « " " « j « " 
« " " « h*(j-l) « 
« usm(i,j,l) « endl; 
} // end for-j 
} // end for-i 

for(i=-nf ;i<=-l;i++) { 
for(j=l;j<=nf ;j++) { 

output « i « " " « j « " 
« " " « h*(j-l) « 
« usm(-i,j,l) « endl; 
} // end for-j 
} // end for-i 

for(i=l;i<=nf ;i++) { 
for(j=l; j<=nf ; j++) { 

output « i « " " « -j « 
« " " « -h*(j-l) « 
« usm(i,j,l) « endl; 
} // end for-j 
} // end for-i 



« h*(i-l) 
" « setprecision(lO) 



« h*(i+l) 
" « setprecision(lO) 



« h*(i-l) 

" « setprecision(lO) 



for(i=l;i<=nf ;i++) { 
for(j=l;j<=nf ;j++) { 

output « -i « " " « -j « 



« -h*(i-l) 
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« " " « -h*(j-l) « " " « setprecision(lO) 
« usm(i,j,l) « endl; 
} // end for-j 
} // end for-i 
} // end if-lev=l 
} // end gluegrid 

The program save does exactly as advertised, saving data into a file: 

//save.cxx - writes J, separation distance, and mass correction 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include "adapt. h" 

void save (char* filename, AGrid3D& psi, AGridSDfe u) 
{ 

extern double J; 
extern double BAREMl; 

using namespace Parameters; // looks up parameter values 

int largen = psi.sideXO; 
double smallh = u.hXO; 

double D = 2*X1; // coordinate separation 
int xpunct = Xl/smallh +1; // grid point location of 

// puncture 

double upunct = u (xpunct , 1 , 1) ; // value of u at puncture 
double admmass = 2*M1 + moment (psi, 0, 0, largen-1) ; 

double q22 = moment (psi, 2, 2, largen-1) ; 

cout « " Phi(l = 2, m = 2) = " « q22 « endl; 

of stream output; 
output .open (filename, ios: :app| ios: :ate) ; //appends to 

// end of file 

cout << setprecision(6) << "J = " « J 
« " coordinate separation = " 

« D « " ADM = "« setprecision(16) 
« admmass « " Newtonian mass = " « Ml « endl; 
} // end save 

The following programs are "helper" programs, in the sense that they are relatively small 
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programs that do simple tasks, such as fiUing arrays with source information or adding and 
subtracting arrays. 

// Fills source array on finest level such that we are relaxing 
// only to find the best approximation, not the error 
void f illsource(AGrid3D& s, AGrid3D& v, AGridSDfe alpha, 

AGrid3D& beta) 

{ 

int i, j, k; 

int n = s . sideXO ; 

double h=s.hX(); 

for (i=l;i<n;i++) { 
for(j=l;j<n;j++) { 
for(k=l;k<n;k++) { 

double vres = 1 . 0/(h*h)*(GALO*v. sy(i , j ,k) 
+GALl*(v.sy(i+l, j ,k)+v.sy(i-l, j ,k) 
+v.sy(i, j+l,k)+v.sy(i, j-l,k) 
+v.sy(i, j ,k+l)+v.sy(i, j ,k-l)) 
+GAL2*(v.sy(i+l, j+l,k)+v.sy(i+l, j-l,k) 
+v. sy(i-l, j+1 ,k)+v. sy(i-l, j-1 ,k) 
+v.sy(i, j+l,k+l)+v.sy(i, j-l,k+l) 
+v.sy(i+l, j ,k+l)+v.sy(i-l, j ,k+l) 
+v.sy(i, j+l,k-l)+v.sy(i, j-l,k-l) 
+v.sy(i+l,j ,k-l)+v.sy(i-l,j ,k-l)) 
+GAL3*(v.sy(i+l, j+l,k+l)+v.sy(i-l, j+l,k+l) 
+v.sy(i+l, j-l,k+l)+v.sy(i-l, j-l,k+l) 
+v.sy(i+l, j+l,k-l)+v.sy(i-l, j+l,k-l) 
+v.sy(i+l, j-l,k-l)+v.sy(i-l, j-l,k-l))) 
+bet a ( i , j , k) *pow ( 1+alpha ( i , j , k) 
+alpha(i, j ,k)*v.sy(i, j ,k) ,-7) ; 

s(i, j ,k) = -vres; 
} 

} 

} 

} 

//Ecalc.cxx - calculates the ADM mass 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include " adapt. h" 
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namespace Energy { 
double ADM; 

} 

void Ecalc(AGrid3D& psi) 
{ 

using namespace Parameters; // looks up parameter values 
using namespace Energy; // allows for modification 

// of ADM mass 

int n = psi.sideXO; 

ADM = 2*M1 + moment(psi,0,0,n-l) ; 

cout « "ADM mass = " « ADM « " for a D = " 
« 2.0*X1 « endl; 

} 

// getu.cxx - returns value of u at puncture 

#include <assert.h> 
#include <f stream. h> 
#include <iostream.h> 
#include <iomanip.h> 
#include <math.h> 
#include "grid.h" 
#include "adapt. h" 

double getu(AGrid3D&; u) { 

using namespace Parameters; 

double h = u.hXO; 

int X = Xl/h +1; // grid point location of puncture 
return (u(x, 1 , 1) ) ; 

} 



extern int MG.NMG; 

extern double GALO, GAL 1,GAL2, GALS; 

Wchecks to make sure system parameters are unchanged 
void checkpar am (double sepdist) { 

using namespace Parameters; 
extern double J; 
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assert ( XI == sepdist/2 ); 

assert ( X2 == XI ) ; 
assert ( SCALE == 2.0*X1 ); 

assert ( LEN == 1 . 0*(pow(2,MG)+2)/(pow(2,MG) ) *SCALE ); 
assert ( PYl == 1.0*J/(2.0*X1) ); 
assert ( PY2 == -1.0*J/(2.0*X1) ); 

} 

//determines the conformal factor on the surfaces in order to 

// calculate a mass 

void f illpsi(AGrid3D& psi, AGrid3D& alpha, AGridSDfe u) 
{ 

int i,j,k; 

int n = u. sideXO ; 

// Calculating the mass from 1/alpha introduces 
// discontinuities... 

// Just calculate correction from 1 + u, and then add bare 
// mass in main. . . 

for(i = l;i<=n;i++) { 
for(j = l;j<=n;j++) { 
for(k=l;k<=n;k++) { 

psi(i,j,k) = 1.0 + u(i,j,k); 

} 

} 

} 

} 

// zeros interior points of grid 
void zerointerior (AGrid3D& v) 
{ 

int m; 

int n=v. sideXO ; 

if (n==pow(2,MG)+3) m = n/2-1; 
else m = n/2; 

for(int i=l ; i<=m; i++) 
for(int j=l; j<=m; j++) { 
forCint k=l;k<=m;k++) { 
v(i,j,k) = 0.0; 

} 

} 

} 

} 
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// zeros interior points of grid 
void zerointeriorsoln(AGrid3D& v) 
{ 

int m; 

int n=v. sideXO ; 
m = n-2; 

for (int i=l ; i<in; i++) { 
for(int j=l;j<m;j++) { 
for (int k=l;k<in;k++) { 
v(i,j,k) = 0.0; 

} 

} 

} 

} 

// zeros everything but fine grid "relcixed" interior 

void zeroexterror(AGrid3D& v) 

{ 

int i,j,k,m; 

int n = V. sideXO ; 

if (n==pow(2,MG)+3) m = n/2; 

else m = n/2+1; 

f or (i=m; i<=n; i++) { 
for(j=l;j<=n;j++) { 
for(k=l;k<=n;k++) { 
v(i,j,k) = 0.0; 
v(j,i,k) = 0.0; 
v(j,k,i) = 0.0; 
} 

} 

} 

} 

// adds two arrays together 

void add(AGrid3D& u, AGrid3D& a, AGrid3D& b) 

{ 

int i, j, k; 

int n = u. sideXO ; 

for (i=l;i<=n;i++) { 
for(j=l; j<=n; j++) { 
for(k=l;k<=n;k++) { 

u(i,j,k) = a(i,j,k) + b(i,j,k); 

} 
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} 

} 

} 

// copies array 

void copy(AGrid3D& u, AGrid3D& v) 
{ 

int i,j,k; 

int n=u. sideXO ; 

for (i=l;i<=n;i++) { 
for(j=l; j<=n; j++) { 
for(k=l;k<=n;k++) { 
u(i,j,k) = v(i,j,k); 

} 

} 

} 

} 

// finds difference of two arrays 

void subtract (AGrid3D& u, AGrid3D& v, AGrid3D& w) 

{ 

int i,j,k; 

int n = u. sideXO ; 

for (i=l; i<=n; i++) { 
for(j=l; j<=n; j++) { 
for(k=l;k<=n;k++) { 

u(i,j,k) = v(i,j,k) - w(i,j,k); 

} 

} 

} 

} 

// Find the norm of an array 

double norm(AGrid3D& v) 

{ 

double err, sum = 0.0; 
int i,j, k; 
int N; 

int n = V. sideXO ; 

if (n==pow(2,MG)+3) N = n-3; 

else N = n; 



for(i=l;i<=N;i++) { 
for(j=l;j<=N;j++) { 
for(k=l;k<=N;k++) { 
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sum = sum + v(i, j ,k)*v(i, j ,k) ; 

} 

} 

} 

err = sqrt(l .0/(N*N*N)*sum) ; 
return (err) ; 

} 

// Adds the correction to the "old" solution 

void update (AGridSDfe v, AGrid3D& a) 

{ 

int i , j , k , n ; 
n = V. sideXO ; 

for(i=l;i<=n;i++) { 
for(j=l;j<=n;j++) { 
for(k=l;k<=n;k++) { 

v(i,j,k) = v(ij,k) + a(i,j,k); 

} 

} 

} 

} 

The following header files, grid.h and adapt. h, were written by Steven Detweiler and allow 
convenient manipulation of arrays: 

// grid.h 

#ifndef GRID__H 
#define GRID__H 

// a Vect goes either from to n-1, for Vect v(n) 
// or from nl to nh for Vect(nl,nh). 

// Inbounds-checking is enabled for v[i] , 
// but not for v.val(i) 

class Vect { 
private : 

int nl; 

int nh; 

int len; 

double *v; 
public : 

// Constructors: 

VectO: nl(0), nh(0) , len(l){ // changed I's to O's 

// for nl, nh 

V = new double [len] ; 
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setZeroO ; 

}; 

VectCint n) : nl(0), nh(n-l) , len(n){ 

V = new double [len] ; 
setZeroO ; 

}; 

VectCint nlow, int nhi) : nl(nlow), nh(nhi) , len(nh-nl+l){ 

V = new double [len] ; 
setZeroO ; 

}; 

// Destructors: 
~Vect(){ 

delete □ v; 

}; 

// initialize (done 
void setZeroO { 
for (int i = 0; 
v[i]=0; 

} 

}; 

// information 

int sizeO const {return len;} 
int highO const {return nh;}; 
int lowO const {return nl;}; 
int index (int i) const {return i-nl;}; 

// value includes out-of-bounds check 
doublefe operator [] (int n) { 
if(n < nl) {cout « n «" 

VectError ("Vect : Out of bounds too low");}; 
if(n > nh) {cout « n «" "; 

VectError ("Vect : Out of bounds too high");}; 
return v[n-nl] ; 

}; 

// value with no out-of-bounds check 
doublefe vaKint n) { 
return v [index (n)]; 

}; 

// Reset size 

void reset (int n){ 
if (n != len){ 

nl = 0; nh = n-1; len = nh-nl+1; 
delete [] v; 



automatically on construction) 
i < len; i++) { 
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V = new double [len] ; 

} 

setZeroO ; 

}; 

void reset (int nlow, int nhi){ 
nl=nlow; nh = nhi; 
if (len != nh-nl+l){ 
len = nh-nl+1; 
delete [] v; 

V = new double [len] ; 

} 

setZeroO ; 

}; 

private : 

void VectError (char* str) const { 
cout .flush () ; 

cout « str << endl; 

cout « "press 'c' and return to continue ..." « endl; 
//getchO ; 
char kb; 
cin » kb; 
assert (0) ; 

}; 

}; 

// Grid2D is a two dimensional grid of n x n for Grid2D u(n) 
// or nx X ny for Grid2D u(nx,ny) 

// access with u(i,j) with 1 <= i <= nx and 1 <= j <= ny 
// Inbonds-checking is enabled, but could be removed. 

class Grid2D { 
private : 

int ngx; 

int ngy; 

Vect v; 
public : 

// Constructors 

Grid2D(): ngx(l) , ngy(l) , v(ngx*ngy){ 

}; 

Grid2D(int N) : ngx(N), ngy(N), v(ngx*ngy){ 
if (N<=0) GridError("side smaller than 1"); 

>; 

Grid2D(int Nx, int Ny) : ngx(Nx), ngy(Ny), v(ngx*ngy){ 
if (Nx<=0) GridError("X-side smaller than 1"); 
if (Ny<=0) GridError("Y-side smaller than 1"); 

}; 
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// Destructors 
~Grid2D(){}; 

// Initialize — done automatically through Vector: :v on construction 
void setZeroO {v.setZeroO ;}; 

// Information 

int sideXO const {return ngx;}; 
int sideYO const {return ngy;}; 

int index(int i, int j) const {return ((i-l)*ngx + j - D;}; 

// Value with out-of-bounds check 

doublefe operator (int i, int j) { 
if(i < 1) {cout « i «" "; 

GridError("Grid2D: i too low");} 
if(j < 1) {cout « j «" "; 

GridError("Grid2D: j too low");} 
if(i > ngx) {cout « i «" "; 

GridError("Grid2D: i too big");} 
if(j > ngy) {cout « j «" "; 

GridError("Grid2D: j too big");} 
return v [index (i,j)] ; 

}; 

// Reset sides 

void reset (int N){ 

if (N<=0) GridError("side smaller than 1"); 
ngx = N; 
ngy = N; 

V . reset (ngx*ngy) ; 

}; 

void reset (int Nx, int Ny){ 

if (Nx<=0) GridError("X-side smaller than 1"); 

if (Ny<=0) GridError("Y-side smaller than 1"); 

ngx = Nx; 

ngy = Ny; 

V . reset (ngx*ngy) ; 

}; 

private : 

void GridError(char* str) const { 
cout . f lushO ; 
cout « str << endl; 

cout « "press 'c' and return to continue ..." « endl; 
//getchO ; 
char kb; 
cin » kb; 
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assert (0) ; 

}; 

}; 



// Grid2D is a three dimensional grid of n x n x n for 
// Grid2D u(n) or nx x ny x nz for Grid2D u(nx,ny,nz) 
// access with u(i,j,k) with 1 <= i <= nx; 1 <= j <= ny; 

// 1 <= k <= nz; 

// Inbonds-checking is enabled, but could be removed. 

class Grid3D { 
private : 

int ngx; 

int ngy; 

int ngz; 

Vect v; 
public : 

// Constructors 

Grid3D(): ngx(l), ngy(l) , ngz(l), v(ngx*ngy*ngz){ 

}; 

Grid3D(int n) : ngx(n), ngy(n) , ngz(n), v(ngx*ngy*ngz){ 
if (n<=0) GridErrorC'side smaller than 1"); 

}; 

Grid3D(int Nx, int Ny, int Nz) : ngx(Nx) , ngy(Ny), ngz(Nz), 
v(ngx*ngy*ngz){ 

if (Nx<=0) GridError("X-side smaller than 1"); 

if (Ny<=0) GridError("Y-side smaller than 1"); 

if (Nz<=0) GridError("Z-side smaller than 1"); 

}; 

// Destructor 
~Grid3D()0; 

//Initialze — done automatical! on constructoin through Vect.v 
void setZeroO {v.setZeroO ;}; 

// Information 

int sideXO const {return ngx;} 

int sideYO const {return ngy;} 

int sideZO const {return ngz;} 

int index (int i, int j, int k) 

const {return (((i-l)*ngy + j-l)*ngz + k-1);} 

// Value with out-of-bounds check 

doublefe operator (int i, int j, int k) { 
if(i < 1) {cout « i «" "; 
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GridError("Grid3D: i too low");} 
if(j < 1) {cout « j «" 

GridErrorC'GridSD: j too low");} 
if(k < 1) {cout « k «" 

GridError("Grid3D: k too low");} 
if(i > ngx) {cout « i «" "; 

GridError("Grid3D: i too big");} 
if(j > ngy) {cout « j «" "; 

GridError("Grid3D: j too big");} 
if(k > ngz) {cout « k «" "; 

GridError("Grid3D: k too big");} 
return v[index(i, j ,k)] ; 

}; 

// Value with symmetry imposed at i=l, j=l, k=l 
doublefe sy(int i, int j, int k) { 
if(i < 1) {i = 2 - i;} 
if (j < 1) {j = 2 - j;} 
if(k < 1) {k = 2 - k;} 
if(i > ngx) {cout « i «" "; 

GridError("Grid3D: i too big");} 
if(j > ngy) {cout « j «" "; 

GridError("Grid3D: j too big");} 
if(k > ngz) {cout « k «" "; 

GridError("Grid3D: k too big");} 
return v[index(i, j ,k)] ; 

}; 

// reset size 

void reset (int n){ 

if (n<=0) GridError("side smaller than 1"); 
ngx = n; 
ngy = n; 
ngz = n; 

V . reset (ngx*ngy*ngz) ; 

}; 

void reset (int Nx, int Ny, int Nz) { 

if (Nx<=0) GridError("X-side smaller than 1"); 
if (Ny<=0) GridError("Y-side smaller than 1"); 
if (Nz<=0) GridError("Z-side smaller than 1"); 
ngx = Nx; 
ngy = Ny; 
ngz = Nz; 

V . reset (ngx*ngy*ngz) ; 

}; 



private : 
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void GridError (char* str) const{ 
cout .flush () ; 

cout « str << endl; 

cout « "press 'c' and return to continue ..." « endl; 
//getchO ; 
char kb; 
cin » kb; 
assert (0) ; 

}; 



#endif 



// adapt . h 

#ifndef ADAPT__H 
#define ADAPT__H 

#include "grid.h" 

class AGridSD : public Grid3D { 
private : 

double Lx; 

double Ly; 

double Lz; 

double ghx; 

double ghy; 

double ghz; 
public : 

// Constructors 

AGridSDO: Grid3D() , Lx(l) ,Ly(l) ,Lz(l) { setsizeO;}; 
AGrid3D(int n) : Grid3D(n), Lx(l) ,Ly(l) ,Lz(l) { setsizeO;}; 
AGrid3D(int Nx, int My, int Nz) : Grid3D(Nx,Ny,Nz) , 
Lx(l),Ly(l),Lz(l) { 
setsizeO ; 

} 

AGrid3D(int n, double L): Grid3D(n), Lx(L) ,Ly(L) ,Lz(L) { 
setsizeO ;}; 

AGrid3D(int Nx, double LX, int Ny, double LY, int Nz, 
double LZ) : 

Grid3D(Nx,Ny,Nz) , Lx(LX) ,Ly(LY) ,Lz(LZ) { 
setsizeO ; 

} 

// Destructor 
~AGrid3D(){;} 
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void reset (int n){ 
GridSD: : reset (n) ; 
setsizeO ; 

} 

void reset (int n, double L){ 
GridSD: : reset (n) ; 
Lx = L; 
Ly = L; 
Lz = L; 
setsizeO ; 



void reset (int Nx, int Ny, int Nz) { 
GridSD :: reset (Nx , Ny , Nz) ; 
setsizeO ; 

} 

void reset (int Nx, double LX, int Ny, double LY, int Nz, 

double LZ) { 



GridSD : 
Lx = LX 
Ly = LY 
Lz = LZ 
setsizeO ; 



reset (Nx,Ny,Nz) ; 



double LenXO 
double LenYO 
double LenZO 



{ return Lx;} 
{ return Ly;} 
{ return Lz;} 



double hX() { 
double hYO { 
double hZO { 



return ghx;} 
return ghy;} 
return ghz;} 



private : 

void setsizeO { 

if (sideXO<=l) ghx = 0; else ghx = Lx/(sideXO-l) 

if (sideYO<=l) ghy = 0; else ghy = Ly/(sideY()-l) 

if (sideZ()<=l) ghz = 0; else ghz = Lz/(sideZ()-l) 

} 

}; 



namespace Parameters { 

extern double Ml; 
extern double M2; 
extern double XI; 
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extern double X2; 
extern double SCALE; 

extern double LEN; 
extern double PYl; 
extern double PY2; 

} 

double getu(AGrid3D& u) ; 
void checkparam (double dist) ; 
void newADMmass(void) ; 
void setup (double dist); 

void save (char* filename, AGrid3D& psi, AGrid3D& u) ; 
void newbeta(AGrid3D& alpha, AGrid3D& beta); 
void psibar (AGrid3D& psib, int 1, int m) ; 
double moment (AGrid3D& u, int 1, int m, int k) ; 
void adapt int erp(AGrid3D& u, AGrid3D& v) ; 
void symadaptrstrct (AGrid3D& u, AGrid3D& v) ; 
void adaptrstrct(AGrid3D& u, AGrid3D& v) ; 
void add(AGrid3D& u, AGrid3D& a, AGrid3D& b) ; 
void copy(AGrid3D& u, AGrid3D& v) ; 
void subtract (AGridSDfe u, AGrid3D& v, AGridSDfe w) ; 
void f illpsi(AGrid3D& psi, AGrid3D& alpha, AGrid3D& u) ; 
void f illsource(AGrid3D& s, AGrid3D& v, AGrid3D& alpha, 

AGrid3D& beta) ; 

void gluegr id (AGridSDfe usm, AGridSDfe ulg, int lev, int count); 
void interp (AGridSDfe af, AGridSDfe vc) ; 
double norm (AGridSDfe v) ; 

void symresrstrct (AGridSDfe u, AGridSDfe v) ; 

void resrstrct (AGridSDfe u, AGridSDfe v) ; 

void newrelax (AGridSDfe u, AGridSDfe v, AGridSDfe s, 

AGridSDfe alpha, AGridSDfe beta); 
void newresidual (AGridSDfe r, AGridSDfe u, AGridSDfe v, 

AGridSDfe s, AGridSDfe alpha, AGridSDfe beta); 
void symrstrct (AGridSDfe vc, AGridSDfe vf ) ; 
void rstrct (AGridSDfe vc, AGridSDfe vf ) ; 
void update (AGridSDfe v, AGridSDfe a); 

void write (AGridSDfe a, AGridSDfe b, AGridSDfe c, AGridSDfe d, 

AGridSDfe e, AGridSDfe f ) ; 
void zeroexterior (AGridSDfe v) ; 
void zeroexterror (AGridSDfe v) ; 
void zerointerior (AGridSDfe v) ; 
void zerointeriorsoln (AGridSDfe v) ; 



#endif 
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